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Preface 

The  need  for  increased  efficiency  in  the  use  of  our 
energy  resources  has  stimulated  applied  research  in  many 
areas.   Recently  progress  has  been  made  in  the  field  of 
aerodynamics,  where  the  development  of  the  supercritical 
wing  promises  significant  savings  in  the  fuel  consumption 
of  aircraft  operating  near  the  speed  of  sound.   Computa- 
tional transonic  aerodynamics  has  proved  to  be  a  useful 
tool  in  the  design  and  evaluation  of  these  wings. 

We  present  here  a  numerical  technique  for  the  design 
of  two-dimensional   supercritical  wing  sections  with  low 
wave  drag.   The  method  is  actually  a  design  mode  of  the 
analysis  code  H  developed  by  Bauer,  Garabedian,  and  Korn 
[2,3,4].   This  analysis  code  gives  excellent  agreement 
with  experimental  results  and  is  used  widely  by  the  air- 
craft industry.   Vve  hope  the  addition  of  a  conceptually 
simple  design  version  will  make  this  code  even  more  useful 
to  the  engineering  public. 
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I .   INTRODUCTION 

1 .    Description  of  the  Problem 

In  this  section  we  discuss  some  of  the  principles 
behind  the  supercritical  wing   and   describe  our  contribu- 
tion to  the  subject. 

General  considerations  show  that  the  range  of  an 
aircraft  is  roughly  proportional  to  the  parameter  M^L/D, 
where  L  is  the  lift,  D  is  the  drag,  and  the  free  stream 
Mach  number  M   is  the  ratio  of   the  aircraft's  speed  to 
the  speed  of  sound.   The  top  curve  in  Figure  1  shows  the 
general  behavior  of  this  parameter  as  the  Mach  number  M^ 
is  varied.   The  value  of  M  L/D  that  maximizes  the  range 
of  the  aircraft  occurs  near  a  region  of   rapid  increase 
in  drag  known  as  drag  rise,  shown  by  the  bottom  curve  of 
Figure  1.   At  this  speed  the     flow  is  observed  to  be 
transonic,  with  regions  of  supersonic  flow  appearing  where 
the  air  accelerates   over  the  wing.   When  the  free  stream 
Mach  number  has  the  value  M   depicted  in  Figure  1,  the 
maximum  speed  of   the  flow  is  equal  to  the  speed  of 
sound.   When  M   >  M    the  flow  is  said  to  be  supercritical. 

OD         C 

Figure  2  illustrates  some  important  characteristics 
of  the  flow  past  an  airfoil  at  speeds  corresponding  to  drag 
rise.   The  region  of  supersonic  flow  is  terminated  by  a 
shock,  where  the  pressure  is  observed  to  be  discontinuous. 


As  the  speed  of  the  wing  is  increased,  the  supersonic  zone 
grows  in  size  and  the  pressure  jump  becomes  larger.   The 
occurrence  of  such  shocks  in  the  flow  imposes  a  retarding 
force  on  the  wing  known  as  wave  drag,  which  is  one  reason 
for  the  drag  rise  seen  in  Figure  1.   The  large  pressure 
gradients  present  in  strong  shocks  can  also  induce  separa- 
tion of  the  boundary  layer  of  air  that  adheres  to  the  wing 
because  of  friction;  separation  results  in  a  decrease  in 
lift  and  more  drag.   The  study  of  transonic  flow  is 
therefore  important  not  only  because  transonic  flow 
encompasses  the  most  economical  regime  for  aircraft  opera- 
tion, but  because  the  deterioration  of  an  aircraft's 
efficiency  at  higher  speeds  is  due  to  transonic  effects. 

The  supercritical  wing  is  designed  to  delay  the  onset 
of  drag  rise  to  higher  Mach  numbers.   Since  the  efficiency 
of  the  wing  is  governed  by  the  optimal  value  of  M^L/D, 
postponing  the  onset  of  drag  rise  to  higher  Mach  numbers 
results  in  a  corresponding  decrease  in  the  fuel  requirements 
of  the  aircraft.   The  delay  in  drag  rise  can  be  effected  by 
constructing  the  wing  so  that  the  strong  shocks  accompanying 
supersonic  zones  of  moderate  size  on  conventional  wings  are 
replaced  by  weaker  shocks  with  less  wave  drag  and  no  appreci- 
able boundary  layer  separation. 

We  are  mainly  concerned  here  with  the  contributions  to 
supercritical  wing  technology  made  by  computational  transonic 
aerodynamics.   The  numerical  solution  of  the    partial 


differential  equations  of  gas  dynamics  provides  a  theoreti- 
cal means  for  both  the  design  and  evaluation  of  supercritical 
wings.   For  example,  two-dimensional  shockless  airfoils  can 
be  obtained  by  calculating  real  analytic  solutions  to  the 
hodograph  equations  of   transonic  flow.   These  airfoils  have 
the  property  that  at  a  specified  speed  and  angle  of  attack, 
the  calculated  two-dimensional  transonic  flow  is  smooth. 
This  guarantees  that  the  wave  drag  will  be  small  near  at 
least  one  operating  condition.   It  may  happen  that  there  is 
an  increase  in  wave  drag  at  supercritical  Mach  numbers  below 
the  design  condition  known  as  drag  creep.  Since   a  wing  must 
operate  efficiently  over  a  range  of  conditions  it  is  desir- 
able to  avoid  the  occurrence  of  drag  creep.   Provided  this 
is  done,  a  practical  approach  to  the  supercritical  wing  is 
to  design  the  wing  using  computer-generated  shockless  airfoils 
in  each  cross-section. 

It  is  also  possible  to  evaluate  the  performance  of  wings 
at  off-design  conditions  using  computer  codes.   Programs 
that  calculate  the  three-dimensional  transonic  flow  past 
wing-body  combinations  are  used  regularly  by  the  aircraft 
industry.   Considerable  savings  can  be  realized  by  replacing 
preliminary  wind  tunnel  testing  of  new  wing  desians  by  such 
computer  simulation. 

There  is  presently  much  interest  in  the  possibility  of 
developing  a  numerical  scheme  for  the  dcsinn  of  three- 
dimensional  wing-body  combinations.   Hodograph  mctnous   employed 


in  the  design  of  two-dimensional  shockless  wing  sections 
cannot  be  used  for  this  purpose.   Our  contribution  in 
this  direction  is  a  two-dimensional  design  code  based  on 
techniques  that  may  prove  useful  in  such  an  endeavor. 
Although  our  method  does  not  produce  shockless  airfoils, 
we  show   that  it  is  possible  to  obtain  wing  sections  with 
low  wave  drag  by  using  an  artificial  viscosity  to  smear 
shocks  properly.   The  design  procedure  is    outlined  in 
Section  4.1. 

Our  program  is   actually  a  new  design  mode  of  the 
two-dimensional  analysis  code  H  developed  by  Bauer, 
Garabedian,  and  Korn  [2,3,4].   This  analysis  code  solves 
the  direct  problem  of  obtaining  the  transonic  flow  past 
a  given  wing  section.   The  code  includes  a  turbulent 
boundary  layer  correction  which  gives  a  reliable  approxima- 
tion to  the  drag  due  to  skin  friction  and  predicts  boundary 
layer  separation.   Drag  estimates  obtained  with  the 
code  are   in  good  agreement  with  experiment,  and  the  program 
has  found  wide  acceptance  in  the  aircraft  industry. 

There  are  two  major  steps  in  the  operation  of  the 
analysis  routine.   Given  the  coordinates  of  the  airfoil, 
the  region  exterior  to  the  airfoil  is  mapped  conformally 
to  the  interior  of  the  unit  circle  as  in  Sell's  treatment 
of  subcritical  flow  past  an  airfoil  [33].   The  nonlinear 
partial  differential  equations  of  transonic  flow  are  then 
solved  iteratively    in  the  unit  circle  using  a  type- 
dependent  difference  scheme  similar  to  the  one  first 
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developed  by  Murman  and  Cole  [27].   If  boundary   layer 
corrections  are  desired,  the  shock  wave  -  boundary  layer 
interaction  is  simulated  by  iterating  between  inviscid 
flow  calculations  and  boundary  layer  corrections  until 
convergence  is  achieved. 

The  design  modification  we  have  added  to  the  code 
solves  the  inverse  problem  of  calculating  the  shape 
an  airfoil  must  have  in  order  to  achieve  a  specified 
pressure  distribution.   When  operating  in  this  mode,  an 
initial  guess  is  provided  for  the  shape  of  the  desired 
airfoil  and  the  region  exterior  to  this  airfoil  is  mapped 
into  the  unit  circle  as  in  the  analysis  mode.   A  number 
of  flow  iterations  are  performed  using  an  artificial 
viscosity  that  inhibits  the  formation  of  shocks,  as 
described  in  Section  2.2.   The  pressure  distribution 
resulting  from  these  calculations  is  then  compared  with 
the  desired  input  pressure  distribution  and  a  better 
approximation  to  the  desired  airfoil  is  obtained,  as 
described  in  Section   2.3.   This  new  profile  is  mapped 
to  the  unit  circl      in  the  first  step  and  the  process 
is  repeated  until  the  approximations  convera-^ .   '>  boundary 
layer  correction  may  then  be  calculated  on  the  basis  of 
the  last  pressure  distribution.   The  desired  airfoil  is 
obtained  by  subtracting  the  di:..  ..i^.  .  ^^nt  thic;>;.*..-      •  ..c 
turbulent  boundary  layer  from   th  the 

computed  profile. 


The  inverse  method  transfers  the  difficulty  in 
designing  wings  from  determining  the  coordinates  of  the 
airfoil  to  finding  pressure  distributions  that  give  rise 
to  airfoils  with  desired  specifications.   We  therefore 
include  descriptions  of  some  pressure  distributions  that 
generate  airfoils  with  low  wave  drag,  and  indicate  how 
to  modify  the  input  distribution  in  order  to  obtain  air- 
foils with  a  desired  lift,  thickness-to-chord  ratio,  and 
design  Mach  number. 

The  remainder  of  the  paper  is  organized  as  follows. 
The  mathematical  statement  of  the  problem  is  formulated 
in  Chapter  II .   The  computational  procedure  is  outlined 
in  Chapter  III .   In  Chapter  IV  we  present  results  obtained 
with  the  design  mode,  together  with  some  comparisons  to 
airfoils  obtained  by  other  methods .   Chapter  V  is  more 
theoretical  in  nature  and  includes  a  convergence  proof  for 
the  design  problem  in  a  special  case  of  subsonic  flow. 
We  provide  a  description  of  the   modified   version 
of  the  Bauer,  Garabedian,  and  Korn  analysis  code  H  in 
Chapter  VI. 

I  would  like  to  express  my  gratitude  for  the  advice 
and  encouragement  of  Paul  R.  Garabedian,  who  suggested  this 
problem  and  made  the  work  possible.   I  am  also  grateful  for 
the  help  of  Frances  Bauer  and  Antony  Jameson  at  various 
stages  of  the  research,  and  for  a  fast  and  accurate  typing 
job  by  Connie  Engle. 


2 .    References  to  Other  Work 

Transonic  flow  research  has  a  colorful  history  [5,29] . 
In  the  late  1940 's,  arguments  to  the  effect  that  smooth 
transonic  flows  past  arbitrary  profiles  should  not  generally 
be  expected  to  exist  were  formulated  by  Busemann  [10]  , 
Frankl  [I5],  and  Guderley  [16].   These  observations  raised 
doubts  about  the  physical  significance  of  the  smooth  solu- 
tions to  the  steady,  two-dimensional  potential  equation  for 
transonic  flow  that  were  known  at  the  time.   It  was  observed 
experimentally  that  transonic  flows  generally  exhibit  shocks 
when  the  supersonic  zones  are  of  moderate  size,  but  there 
were  occasional  instances  of  near-shockless  flow  that 
seemed  to  contradict  the  implications  of  the   nonexistence 
theorems.   A  "transonic  controversy"  developed  over  the 
true  nature  of  transonic  flows  in  general  and  of  shockless 
flows  in  particular. 

The  controversy  attracted  considerable  attention  from 
mathematicians  in  the  hopes  that  a  rigorous  investigation  of 
whether  the  flow   problem  was  well-posed  would  help  clarify 
matters.   From  this  viewpoint,  a  satisfactory  demonstration 
that  the  problem  of  finding  smooth  transonic  flows  past 
convex  symmetric  profiles  was  not  correctly  set  was  supplied 
by  Morawetz  [2  6],  although  the  apparent  discrepancies  between 
theory  and  experiment  remained  unresolved. 

More  progress  was  made  in  the  early  1960 *s  with  the 
experimental  work  of  Pearcey  I  31]  ,  who  was  able  to  systemati- 


cally  produce  near-shockless  flows  past  wing  sections  having 
a  suction  pressure  peak  near  the  nose  of  the  profile.   The 
subsequent  development  of  numerical  techniques  capable  of 
treating  transonic  flows  with  shocks  brought  about  a 
reinterpretation   of  the   nonexistence  theorems  since  the 
computational  problem  seems  to  be  correctly 
set   in     terms  of  weak  solutions.   Results  of  both 
experiment  and  computation   show  that   shockless  and 
neighboring  near-shockless  solutions  do  in  fact  have 
physical  significance  and  can  provide  an  important  means 
of  reducing  the  drag  experienced  by  airfoils  travelling 
at  transonic  speeds . 

Several  numerical  techniques  have  been  developed  for 
the  design  of  two-dimensional  supercritical  wing  sections 
using  inviscid  flow  theory.   We  can  distinguish  between 
approaches  relying  on  hodograph  methods  and  the  remaining 
approaches . 

The  hodograph  transformation  consists  of  reversing 
the  roles  of  the  dependent  and  independent  variables  in  the 
flow  equations  with  the  result  that  the  partial  differential 
equations  are  linear.   Using  this  transformation,  several 
methods  have  been  devised  to  allow  the  systematic  computa- 
tion of  airfoils  that  have  shockless  flows  at  given  operat- 
ing conditions   [2,4,8,30].   Such  airfoils  necessarily  have 
low  wave  drag  at  nearby  operating  conditions,  although 
drag  creep   can  occur  elsewhere. 


other  approaches  to  the  design  problem  do  not 
generally  provide  shock-free  solutions  to  the  equations . 
This  is  not  necessarily  a  disadvantage,  since  for  some 
applications  it  is  possible  that  an  airfoil  designed  with 
a  weak  shock  might  have  an  overall  performance  that  is 
as  good  or  better  than  a  shockless  airfoil  with  similar 
specifications.   The  main  difficulty  is  to  find  pressure 
distributions  that  will  generate  airfoils  with  low  drag 
levels . 

Some  design  methods  use  the  approximations  of  small 
disturbance  theory  and  thin  airfoil  theory  [11,22,31]. 
With  this  approach  the  solution  is  expanded  in  terms  of  a 
parameter  describing  the  thickness  of  the    profile,  which 
is  assumed  to  be  small.   This  has  the  advantage  that  to 
leading  order  the  profile  can  be  replaced  by  a  given  slit. 
The  desired  pressure  distrubution  along  the  surface  of 
the  airfoil  can  then  be  used  in  a  boundary  condition  applied 
at  the  slit,  and  so  the  difficulties  caused  by  the  unknown 
boundary  are  avoided.   The  coordinates  of  the  desired  air- 
foil can  be  determined  from  the  resulting  velocity  components 
This  technique  has  the  disadvantage  that  the  flow  is  not 
represented  correctly  near  the  stagnation  point  at  the 
leading  edge  of  a  blunt-nosed  airfoil.   It   should  be  noted 
that  applications  of  this  technique  to  the  design  of  three- 
dimensional  wings  have  been  initiated  [17,34]. 


The  design  methods  of  Carlson  [12]  and  Tranen  [36] 
solve  the  inverse  problem  for  the  full  potential  equation 
with  a  free  boundary.   Both  of  these  methods  use  the 
prescribed  pressure  distribution  in  a  boundary  condition 
for  the  determination  of  the  velocity  potential,  and 
calculate  the  position  of  the  surface  of  the  profile  by 
using  the  condition  of  flow  tangency  along  the  body.   In 
Carlson's  method  the  calculation  is  performed  using  Cartesian 
coordinates .   The  coordinates  near  the  nose  are   given  in 
advance  and  the  remainder  of  the  profile  is  determined  as  a 
free  boundary.   Tranen  uses  the  analysis  code  H  to  perform 
the  flow  calculations  and  to  provide  a  computational  domain, 
and  proceeds   by  alternating  between  analysis  and  design 
computations.   At  each  cycle  the  user  modifies  the  prescribed 
pressure  distribution  in  order  to  achieve  convergence. 

The  design  procedure  of  Hicks   and  his  associates  [18] 
is  based  on  the  use  of  a  numerical  optimization  routine 
together  with  the  analysis  code  H  to  minimize  the  drag  coeffi- 
cient with  respect   to  design   variables   that  describe 
the  shape  of  the  profile,  while  satisfying  various  constraints 
on  the  operating  conditions  and  geometry.   This  technique 
has  the  advantage  of  drag  reduction  without  the  necessity 
of  choosing  the  pressure  distribution.   Its  main  drawback 
is  the  large  amount  of  computing  time  required  when  many 
parameters  are  allowed  to  vary. 
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The  method  we  present  for  supercritical  wing  design 
uses  the  prescribed  pressure  distribution  in  a  boundary 
condition  for  the  determination  of  the  conformal  mapping 
from  the  unit  circle  to  the  desired  airfoil.   This 
approach  to  the  design  problem  is  similar  in  spirit  to 
Lighthill's  inverse  method  [23],  which  is  based  on  the 
linear  theory  of  incompressible  flow  and  so  does  not 
require  an  iterative  procedure  to  determine  the  flow  and 
profile.   Other  incompressible  treatments   along  these 
lines  have  also  appeared  [I,l3]. 

The  practical  success  of  an  inverse  method  of  airfoil 
design  depends  on  the  prescribed  pressure  distribution. 
It  is  therefore  important  to  study  the  relation  between 
the  assigned  pressure  distribution  and  the  performance  of 
the  resulting  airfoil  [7,29] .   Much  work   remains  to  be  done 
on  this  aspect  of  the  problem.   The  many  shockless  flows 
produced  by  hodograph  methods  provide  a  good  basis  for 
investigation. 
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II.  THE  PARTIAL  DIFFERENTIAL  EQUATIONS  OF  TRANSONIC  FLOW 

In  this  chapter  we  consider  the  mathematical  formula- 
tion of  the  design  problem.   We  summarize  the  basic  equa- 
tions of  motion  for  gas  dynamics  and  discuss  the  boundary 
conditions  appropriate  for  the  direct  and  inverse  problems, 

1 .    The  Equations  of  Gas  Dynamics 

We  begin  with  some  comments  about  the  choice  of  equa- 
tions to  describe  the  problem.   We  wish  to  model  the 
flight  of  aerodynamically  efficient  wings  at  transonic 
speeds.   We  are  especially  concerned  with  the  drag  on  such 
bodies,  which  includes  forces  due  to  skin  friction  and 
shocks .   For  our  treatment  to  be  of  practical  use  we  must 
consider  equations  which  allow  estimates  of  the  wave  drag 
due  to  shocks,  and  we  must  provide  for  the  calculation 
of  viscous  effects.   Furthermore,  we  must  choose  equations 
that  are  compatible  with  the  inherent  storage  limitations 
of  computers . 

It  is  common  in     experiment  as  well  as  theory 
to  treat  the  case  of  steady,  two-dimensional  flow  past  a 
wing  of  uniform  cross  section.   This  provides   a  good 
approximation  of  the  flow    near  the  middle  section  of 
a  three-dimensional  wing  with  a  straight  leading  edge 
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moving  with  a  constant  velocity.   This  geometrical  simpli- 
fication permits  the  use  of  just  two  independent  variables, 
which  we  take  to  be  the  x  and  y  coordinates. 

Another  important  simplification  is  possible  if  the 
airfoil  is  streamlined  so  that  viscous  effects  are  confined 
to  the  immediate  vicinity  of  the  profile.   In  this  case 
the  flow  outside  the  boundary  layer  can  be  obtained  from 
lower  order  partial  differential  equations  describing 
inviscid  fluid  motion.   The  invisC'id   solution  can  then 
be  used  to  calculate  a  boundary  layer  correction  to  the 
flow  past  the  airfoil,  making  it  possible  to  obtain  esti- 
mates of  the  drag  due  to  skin  friction  [28,32].  Separation 
of  the  boundary  layer  should  be  avoided  for  aerodynamical 
reasons,  too,  so  it  is  important  for  the  theory  to  give 
reliable  estimates  of    the  growth  of  the  boundary  layer. 

Inviscid  fluid  flow  can  be  described  by  conservation 
laws  consisting  of  nonlinear,  first  order  partial  differ- 
ential equations  involving  the  velocity  components  of  the 
flow  and  two  thermodynamic  variables  such  as  the  density 
and  entropy.   The  conservation  laws  also  provide  shock 
conditions  which  determine  the  jump  in  these  quantities 
across  a  surface  of  discontinuity  in  the  flow.   For  the 
case  of  flows  past  thin  bodies   at  speeds  close  to  the 
speed  of  sound,  the  shocks  are  usually  weak  in      onse 
that  the  jump  in  velocity  across  the  shock  is  small  compared 
to  the      i  of  sound.  The  jump  in  entropy  a 
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is  of  third  order  in  the  shock  strength;  to  a  good 
approximation,  the  change  in  entropy  can  therefore  be 
neglected  in  a  weak  shock.   With  this  assumption,  the 
entropy  of  a  fluid  particle  is  constant  throughout  its 
motion,  and  the  flow  may  be  considered  isentropic. 

As  a  result  of  considering  the  entropy  to  be  con- 
served  across  a  shock,  the  shock  condition   expressing 
conservation  of  the  normal  component  of  momentum  is  lost. 
The  defect  in  this  quantity  can  be  interpreted  as  an 
approximation  of  the  wave  drag  exerted  on  the  airfoil 
by  the  shock . 

For  isentropic  flow,  the  velocity  field  is  irrotational 
if  the  flow  is  uniform  at  infinity.   This  permits  the 
introduction  of  a  velocity  potential  whose  derivatives  are 
the  velocity  components .   The  inviscid  equations  of  motion 
can  then  be  reduced  to  a  single  second  order  partial  differ- 
ential equation  for  the  potential,  and  in  the  computation 
it  is  only  necessary  to  store  values  of  a  single  dependent 
variable . 

We  shall  list  below  the  equations  describing  the  flow 
of  an  inviscid,  isentropic   gas.   In  Section  3.4  the  equa- 
tions  used  to  describe  a  turbulent  boundary  layer  correction 
will  be  discussed.   It  is  found  in  practice  that  these 
equations  provide  a  description  of  the  transonic  flow  past 
an'  airfoil  that  agrees  well  with  experiment  over  a  wide 
range  of  conditions   [3,4]. 


14 


The  equations  describing  the  steady   two-dimensional 
motion  of  an  ideal      polytropic  gas  are  familiar  [14,25] 
From  thermodynamics  we  have  the  equation  of  state 

(2.1)  p  =  A(s)p^ 

where   p,  p,  and  S  are  the  pressure,  density,  and  specific 
entropy  of  the  gas.   A(s)   is  a  known  function  of  the 
entropy  and  y  >  1  is  a  constant  depending  on  the  nature 
of  the  gas . 

Conservation  of  mass  gives 

(2.2)  (pu)^  +  (pv)^  =  0 

where  u  and  v  are  the  x  and  y  components  of  the  velocity. 
Similarly,  the  conservation  of  momentum  asserts  that 


(2.3)  (uu^  +  vUy)  +  p^  =  0  , 


(2.4)  (uv^  +  vv^)  +  Py  =  0  , 
and  the  conservation  of  energy  gives 

(2.5)  uS^  +  vSy  =  0  . 

As  mentioned  above,  we  consider  the  case  of  constant 
entropy,  so  that  (2.5)  is  automatically  satisfied  and  A(S) 
in  (2.1)  is  a  constant.   The  flows  we  consider  become 
uniform  at  large  distances.   It  then  follows  from  a  theorem 
of  Kelvin  that  the  flow  is  irrotational , 
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(2.6)  u   -  V   =  0  . 

y    X 

Using  (2.1),  (2.2)  and  (2.6)  we  obtain  Bernoulli's  law 


(0    7^        u   +  V      c   _  1      T  +  1    2 
^  •  '  2  Y-1    2   Y  -  1   ^*  ' 

2 
where  c   =  dp/dp   is  the  square  of  the  local  speed  of 

sound  and  c^  is  a  constant  known  as  the  critical  speed, 

The  dimensionless  ratio 


M  = 


2  ^   2-1  1/2 
u   +  V 

2   J 


is  called  the  local  Mach  number  and  is  greater  than  one  if 

2    2     2     2 
u  +  V   =  q   >  c^   (locally  supersonic  flow)  and  less  than 

2     2 

one  if   q   <  c^   (locally  subsonic  flow)  . 

According  to  (2.2)  and  (2.6),  there  are  two  functions 
(})  and  ij^  such  that 


(2.8a)  u  =  (b   =  \b   /p 

^x     ^y  ^ 

(2.8b)  V  =  (j)   =  -ij>  /p 

(t>   and  1^  are  the  velocity  potential  and  stream  function  of 
the  flow.   We  may  obtain  a  single  equation  for  <^    from   (2.1), 
(2.2)  ,  and  (2.7)  , 


(2.9)   (c^  -  (})  ^)(})    -  24)  4)  (})    +  (c^  -  (J)  ^)({)     =   0 
X   "^xx     ^x  y^xy         ^y    yy 


This  is  the  partial  differential  equation  that  is  the  basis 
of  our  numerical  work.   ij^  satisfies  a  similar  equation. 
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Equation  (2.9)  is  a  quasilinear   partial  differential 

equation  which  is  elliptic  when  M^  <  1   and  hyperbolic  when 

2 
M   >  1.   We  are  interested  in  the  case  of  transonic  flow, 

so  that  (2.9)  has  mixed  type  in  the  region  of  interest. 

It  is  appropriate   to  consider  weak  solutions  to  (2.9) 

or  (2.2)   under  the  conditions  that  4)  is  continuous  and 

that  any  shocks  present  are  compressive.  This  corresponds 

to  the  proper  entropy  inequality  in   nonisentropic  flows. 
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2  .    The  Direct  Problem 

In  this  section  we  discuss  the  formulation  of  the 
direct,  or  analysis,  problem  of  determining  the  flow 
past  a  given  wing  section. 

We  consider  an  airfoil  with  coordinates  (x(s),y(s)j 
parametrized   by  arc  length  s  measured  from  tail  to  tail 
as  in  Figure  2.   The  included  angle  at  the  trailing  edge 
is  denoted  by  e .   The  frame  of  reference  is  chosen 
so  that  the  airfoil  is  at  rest  and  the  air  has  a  resulting 
velocity   u  -    (q^  cos  a,  q^  sin  a)  at  infinity,  where 
the  angle  of  attack  a  gives  the  direction  of  motion  relative 
to  fixed  coordinate  axes . 

The  fact  that  the  flow  must  be  tangential  to  the 
surface  of  the  airfoil  provides  one  boundary  condition 
for  (2.9) .   If  V  is  a  unit  normal  to  the  profile,  then 
this  condition  can  be  stated  as 

(2.10)  0-u  =  1^  =  0 

—    o  V 

on  the  curve  (x(s),y(s)).   Since  the  airfoil  is  a  stream- 
line of  the  flow,  this  fact  can  also  be  expressed  by 

(2.11)  i|;  (x  (s)  ,y  (s)  )  =  constant. 

We  consider  lifting  profiles  with  cusped  trailing  edges, 

0  £  e  <<  1,   in  which  case  the  potential  4)  need  not  be 

single-valued.   The  circulation  V    =    [^]    of  the  flow  around 

the  airfoil  is  then  uniquely  determined  by  the  Kutta- 

Joukowski  condition 
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(2.12)  |u(x(0)  ,y(0))  I  <  -  , 

which  states  that  the  velocity  must  be  finite  at  the 
trailing  edge.   If  e  >  0   the  flow  necessarily  has  a 
stagnation  point  at  the  trailing  edge.  This  is  not  the 
case  for  e  =  0.   The  presence  of  a  stagnation  point  at 
the  tail  of  the  airfoil   should  generally  be  avoided 
since  the  resulting  adverse  pressure  gradient  promotes 
separation  of  the  boundary  layer. 

It  can  be  shown  [24l  that  0  has  an  asymptotic 
expansion 

(2.13)  ({)  '\'   q^r  cos(e-a)  +  ^  tan""'"(3  tan(e-a)) 

2     2     2  2  2  -1 

as  r   =  X   +  y   -►  »,  where  B   =  1  -  M^   and  6  =  tan    y/x, 

This  is  similar  to  the  corresponding  expansion  for 

incompressible  flow.  The  Prandtl-Glauert  scale  factor  ^ 

commonly  occurs  in  linearized  treatments  of  compressible 

flow. 

For  the  analysis  problem  it  is  convenient  to  express 

Bernoulli's  law  (2.7)  in  the  form 


2   2 

<})+((>       2     - 
(2.14)       _ii^  +  -£^  =  q^ 


1—^      ^ 


(Y-i-  ., 
where  M   is  the  Mach  number  at  infinity.   With  this  nota- 

CD 

tion,  the  direct  problem  can      rmulated  by  specifying 
the  airfoil  coordinates  (x(s),y(s)),  the  angi 


ly 


and  M   <  1.   In  this  case  we  are  free  to  choose  the  units 

oo 

so  that  q   is  normalized  to  one.   The  flow  is  then  obtained 
by  solving  the   partial  differential  equation  (2.9),  along 
with  the  boundary  conditions  (2.10),  (2.12),  (2.13),  and 
(2.14)  . 

The  lift  of  the  airfoil  is    proportional  to  the 
circulation  F.   When  the  angle  of  attack  is  varied,  the 
circulation  of  the  flow  adjusts  so  that  the  Kutta  condi- 
tion (2.12)  is  satisfied.  For  a  given  Mach  number  M   , 
the  lift  is  therefore  a  function  of  the  angle  of  attack. 
A  variant  of  the  above  formulation  of  the   problem  that 
is  useful  in  applications  is  to  specify  the  lift  of  the 
airfoil  instead  of  a.   The  angle  of  attack  necessary  to 
produce  this  lift  is  then  determined  by  imposing  the  Kutta 
condition . 
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3 .    The  Inverse  Problem 

In  this  section  we  describe  the  inverse,  or  desigr^ 
problem  of  calculating  the  shape  that  a  profile  must  have 
in  order  to  achieve  a  given  pressure  distribution. 

Suppose  there  is  a  flow  past  a  profile  such  as  the  one 
depicted  in  Figure  2.   If  the  velocity  of  the  flow  along 
the  profile  is  written  in  the  form 

u(s)  -  iv{s)  =  Q(s)  e    '    , 

then  the  direct  problem  consists  of   specifying  the  angle 
0(s),  which  determines  the  shape  of  the  airfoil,  and  solv- 
ing for  the  flow.   For  the  inverse  problem,  the  values  of 
Q(s)  are  given  and  both  the  flow  and  the  body  are  to  be 

determined.   Since  Bernoulli's  law  (2.7)  provides  a  corres- 

2       2  (y-1)/Y 

pondence  between  the  values  of  q   and  c   =  constant 'p       , 

we  may  formulate  the  inverse  problem  in  terms  of  either 

q  or  p,  and  the  choice  of  q  is  only  a  matter  of  mathematical 

convenience. 

The  inverse  problem  is  seen  to  be  a  free  boundarv  oroblem 
and  is  for  this  reason  more  complicated  than  the  direct 
problem.   The  coordinates  (x(s),y(s))  of  the  airfoil  are 
now  unknown  and  are  to  be  determined  from  thr  knowledge 
of  the  velocity  distribution  Q{s) .   We  may  write  the 
relationship  between  <^  and  Q(s)  as  an  additional  boundary 
cond  it  ion 
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(2.15)  1^  (f)(x(s),y(s))  =  Q(s) 

on  the  interval  0  <_  s  ^  £,  where  £  is  to  be  the  total 
length  of  the  airfoil. 

It  is  also  necessary  to  specify  the  constant  in 
Bernoulli's  law.   In  the  direct  problem  the  Mach  number 
and  speed  at  infinity  are  prescribed  as  in  (2.14);  for 
the  design  problem  we  give  instead  the    value  of  the 
critical  speed  c^  in  (2.7)  .   This  means  that  the  Mach 
numbers  of  the  flow  along  the  airfoil  are  specified. 
The  choice  of  c^  determines  the  type  of  the  equation  (2.8) . 
If  c^    >   max  |Q(s) | ,   the  flow  will  be  subsonic  and  (2.9) 
will  be  elliptic;  if  there  are   points  with  |Q(s) |  >  c^  , 
the  flow  will  be  transonic  and  (2.9)  will  have  mixed  type. 

We  remark  that  with  this  formulation  q^  is  not  speci- 
fied as  data,  but  must  be  determined  along  with  <p   and 
(x  (s)  ,y  (s) )  . 

The  fact  that  Q(s)  is  to  be  the  velocity  distribution 
of  a  flow  past  an  airfoil  places  restrictions  on  the  form 
Q(s)  may  have.   A  typical  choice  for  Q(s)  is  illustrated 
in  Figure  3.   Q(s)  must  have  a  zero  corresponding  to  the 
stagnation  point  that  forms  at  the  nose  of  the  airfoil, 
and  then  must  be   nonzero  along  the  surface  of  the  airfoil 
until  the  tail  is  reached.   At  the  tail  the  velocity  must 
be  continuous  and  may  be  taken  to  be  nonzero   provided  the 
included  angle  c    at  the  trailing  edge  is  zero. 
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Q(s)   must   satisfy  further   compatibility  conditions  in 
order  to  determine  profiles  defined  by  simple  closed  curves. 

Note  that  since  the  circulation  of  the  flow  is  given 
by  the  integral  of  the  speed  along  the  profile,  the  lift 
of  the  airfoil  can  be  calculated  from  the  prescribed 
velocity  distribution.  The  angle  of  attack  may  still  be 
specified  in  the  asymptotic  form  (2.13),  since  in  the  design 
problem  the  airfoil  is  free  to  rotate  with  respect  to  the 
fixed  coordinate  system  so  as  to  satisfy  (2.12). 

To  summarize,  the  design  problem  is  posed  by  specify- 
ing the  speed  distribution  Q(s),  the  critical  speed  c^  , 
and  the  angle  of  attack  a.   The  potential  of  the  flow  and 
the  airfoil  coordinates  are  then  obtained  by  solving  the 
equations 

(2.9)   ic^-^l)^^^-    .  ^    (c2  .  t^2)^^^   ^   0  ^ 

c^    =   i  111    2 
Y  -  1      2   Y-1   ^*  ' 

'  X  ( s )  ,  y  ( s )  )  =  0  ; 


(2.15)         ^  <|>fx(s),y(s))  =  0(5)  ; 


(2. 

.7) 

^x 

+ 
2 

*2 

+ 

(2. 

,10) 

(2.12)  lufx(O)  ,y(0))  I  < 


(2.13)   ♦  '^   q^r  cos(e-a)        tan"^(B  tan(e-n)) 
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III.   DISCUSSION  OF  THE  COMPUTATIONAL  PROCEDURE 

In  this  chapter  we  describe  the  method  used  to  solve 
the  design  problem  outlined  in  Section  2,3.  in  Section  3.4 
we  also  provide  a  brief  summary  of  the  equations  used  to 
compute  the  boundary  layer  correction. 

1 .    Overview  of  the  Computation 

The  procedure  we  describe  here  is  based  on  the  Bauer, 
Garabedian,  and  Korn  analysis  code   H   [2,3,4]  which  solves 
the  direct  problem  described  in  Section  2.2.   The  analysis 
routine  computes  the  inviscid  flow  past  a  given  airfoil  in 
two  steps.   The  region  exterior  to  the  airfoil  in  the 
z-plane  is  mapped  conformally  onto  the  interior  of  the 
unit  circle  in  the  c-plane,  and  the  partial  differential 
equation  (2.9)  for  (j)(x,y)  is  expressed  in  terms  of  the 
variables  (r,aj)  ,  where   <;  =  r  e   .   The  resulting  nonlinear 
equation  is  then  approximated  by  a  finite  difference   scheme 
which  is  solved  by  a  relaxation  procedure  to  provide  the 
solution  4i(r,w). 

For  the  inverse  problem,  we  are  given  the  velocity 
distribution  Q(s)   rather  than  the  coordinates  of  the 
airfoil.   The  basic  idea  is  to  use  Q(s)  to  determine  both 
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the  mapping  z  =  f(C)  of  the  unit  circle  onto  the  desired 
airfoil   and  the  potential  4).   With  this  free  boundary 
approach,  the  flow  calculations  are   done  in  a  fixed 
computational  domain  and  the  geometry  is  determined  by 
introducing  the  appropriate  mapping  as  an  additional 
unknown.   This  results  in  coupled  nonlinear  equations  for 
(J)   and  for  the  mapping  function  f  which  we  solve  iteratively 
using  existing  routines  in  the  analysis  code. 

The  iterations  go  roughly  as  follows.   We  start  with  a 
first  guess  for  the  potential  function  which  we  take  to  be 
the  incompressible  solution  <t>  obtained  by  replacing  the 

partial  differential    equation  (2.9)  by  Laplace's  equation. 
The  values  of  0     are  used  in  the  equation  for  the  mapping 
function,  which  we  solve  for  the  approximation  z  =  f    (s) . 
Using  the  mapping  f     in  the  flow  equation  then  provides 
a  better  approximation  (\)         (r,u))  to  the  potential,  and 
the  process  is  repeated  until  the  approximations  converge. 
In  terms  of  the  analysis  code,  at  each  cycle  the  design  mode 
starts  with  an  approximation  to  the  desired  airfoil  P    , 
maps  it  to  the  unit  circle,  and  solves  for  the  flow  past  P 
in  the  usual  way.   The  resulting  speed  distribution  is  then 
compared  to  the  desired  speed  distribution  Q(s),  and  a  correc- 
tion to  P     is  made  to  obtain  the  new   approximation  P 
The   iterations  continue  until  the  computed  speed  distribu- 
tion agrees  with  the  prescribed  distribution  Q(s)  within 
an  acceptable  accuracy. 
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We  now  describe  this  procedure  in  more  detail.  Consider 
a  conformal  mapping  z  =  f(c)  from  the  unit  circle  onto  the 
exterior  of  an  airfoil  such  as  appears  in  Figure  2.   We 
assume  f  has  a  pole  at  the  origin  and  takes  the  point 
C  =  1  into  the  tail  of  the  profile  (x(0),y(0)).   The 
included  angle  at  the  trailing  edge  will  be  taken  to  be 
zero,  although  the  less  important  case  e  >  0  could  be 
treated  similarly.   The  derivative  of  the  map  function  has 
an  expansion  of  the  form 


(3.1)      ^  =  f  (O  =  -  i ^  exp  I      c    r,^    , 

"^^  C  k=0  ^ 


where  -die  behavior  of  the  mapping  at  the  trailing  edge  of 
the  airfoil  is  taken  into  account  by  the  factor  (1  -  t.)  . 

The  mapping  determines  a  boundary  correspondence 
between  the  unit  circle  c  =  e    and  the  airfoil  which  we 
write  as  s  =  s(w),  where  s  is  arc  length  along  the  profile 
If  we  denote  the  inclination  of  the  tangent  to  the  airfoil 
by  0(s) ,  as  in  Figure  2,  then  on  the  unit  circle  ^  =  e 
we  have 


(3.2)   f(0  =  1^1  exp  |i  arg  || 


"  d5  ^^P  |i(e(s(w))  -  w  -  I  )| 


If  c,  =  a,  +  ib,  ,  then  (3.1)  gives 
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(3.3a)       log    I ^—\    =      )      a,  cos    kw    -    b,  sin   koj 

^2   sin   77        ^         k=0 


(3.3b)       0(s(w)]    +    3"  +   TT      =      ^      b.cos    ku)    +   a,  sin   ko)    . 

"^  k=0      '^  ^ 


These  equations  show  that  the  mapping  is  essentially 
determined  once  the  correspondence   s  =  s(u)  is  known. 

Under  the  change  of  variables  z  =  f((;),  c,   =   r   e   ''  , 
the  partial  differential  equation  (2.9)  for  (|>  becomes 


(3.4)  r^(c^-  u^)i    -  2ruv^    +  (c^-  v^)^ 

rr        rto  ^uio 


+  r(c^-  v^)^   +  -  (u^+  v^) [r^uh  +  r^vh  ]  =  0  , 
rr  r      u) 


~  2    I       2     2    ~  2   2 

where   ({)(r,a))  =  (})(x,y),   h   =  |dz/di;|  ,   u   =  <t)^/h      , 

2    -  2    2  2         2 
V   =  *  /(r  h  ),  and  c   is  given  by  Bernouli's  law  (2.7). 

Note  that  the  mapping  function  f  appears  in  (3.4)  through 

the  Jacobian  h.   Furthermore,  for  the  inverse  problem  the 

solution   't)(r,aj)  of  (3.4)   can  be  used  together  with  the 

data  Q(s)  to  provide  boundary  values   for  the  determination 

of  f'(C).   The  relation  ^(l,a))=  0  (x  (s  (w)  j  ,y  (s  (w) ) )   yields 

upon  differentiation 

which  can  be  used  in  the  expression  (3.3a)  for  log|f'(e   )|. 

The  problem  is  therefore  described  by  the  equations 

(3.1),  (3.3a),  (3.5),  and  (3.4),  together  with  the  appropriate 
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boundary  conditions  for  <t>    to  supplement  (3.4).   The 
iterations  used  in  the  computation  to  solve  this  problem 

(o: 


start  with  the  approximation 


(r,a))  provided  by 


incompressible  theory.   If  we  introduce  harmonic  function 

2        —1 
G((;)  =  log  1^  (1  -  c)   f'(C)|,   the  iteration  scheme  then 

proceeds  by  solving  in  succession 


(3.6) 


ds 


(n) 


:r(n-i: 


doj 


Q(s("^(.))  ^'^ 


(l,aj] 


(3.7)  \ 


AG^'^^  (^)  =  0 


G^^Ne^'") 


log 


1     ds 

„   .   to   doa 
2  sin  -J 


(n) 


(OJ) 


(3.8) 


h^^^U  = 


1  -  C 


exp  G^"^  (C) 


/->  r,\    2.  2   2  ~(n)  ,       l(n)  ,  ,  2   2,~(n) 
(3.9)   r  (c  -u   ({)     +  ru  v  (J)     +  (c  -v  )  4) 
^    '     ^  n   n   rr      n  n  rw      n   n   cjoj 


-  2    2,r  n   ^1,2^  2,  r  3   ,  n   ^   2   .  n  ,    „ 

+   r(c-v)(l)+—    (u+v)[ruh+rvh         ]=0 
n         n      r  r         n      n  n    r  n   m 


2  2 

r:  TOT        L.      2    ~  (n)   -,  (n)     2 

for  n  =  1,2,3,.,.,  where  u   =  $     /h     ,  v 


(^^'/(r^h^-)'), 


2  2         2- 

and  c    is  given  in  terms  of   u    and   v    by  Bernoulli's 
n      ^  n         n    -^ 

law  (2.7).  The  boundary  conditions  used  to  solve  (3.9) 
are  those  of  the  direct  problem. 

The  mapping  computation  (3.7)  can  be  done  rapidly  using 
the  fast  Fourier  transform  to  evaluate  the  coefficients 


appearing  in  a  truncated  series  expansion  for  G 


(n) 
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The  flow  computation  is  performed   using  a   nonconserva- 
tive  difference  scheme  similar  to  the  one  first  developed 
by  Murman  and  Cole  [27] .    Its  main  feature  is  type- 
dependent  differencing  which  captures  shocks  over  two  mesh 
widths  by  effectively  producing  an  artificial  viscosity 
in  the  supersonic  regions. 

The  iterative  procedure  works  very  well  for  subsonic 
flows,  presumably  because  the  initial  guess  is  a  good 
approximation  to  the  solution.   In  fact  we  prove  in 
Section  5.2  that  a  similar  iteration  converges  to  a  solu- 
tion provided  the  maximum  Mach  number  in  the  flow  is  small 
enough . 

For  the  case  of  transonic  flow,  the  problem  is 
complicated  by  the  possible  presence  of  shocks  in  the  flows 
past  the  various  approximations  to  the  desired  airfoil. 
A  large  gradient  in  the  derivative  of  (f  ^^~    '(l,ii))    appearing 
in  (3.6)  is  undesirable,  since  a  discontinuity  in  (3,3a) 
causes  a  logarithmic  singularity  in  (3.3b),  which  is 
inconsistent  with  the  assumed  smoothness  of  the  airfoil. 

One  way  to  avoid  this  difficulty  is  to  solve  the  equa- 
tions on  a  coarse  mesh.   The  coefficient  of  the  artificial 
viscosity  implicit  in  the  Murman-Cole  scheme  is  of  the 
order  of  a  mesh  width.   If  the  grid  is  coarse  enough,  weak 
shocks  are  suppressed  by  this  viscosity,  as  illustrated 
in  Figure  4.   This  smoothing  effect  allows  i    ,  rocess  to 
converge  even  in  the  case  of  transonic  flow.  If  '"      ' 
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is  refined,  unwanted  shocks  may  appear  in  the  flow, 
causing  the  iterations  to  diverge.   On  the  other  hand, 
a  solution  computed  on  too  coarse  a  mesh  may  not  accurately 
model  the  actual  flow  past  the  airfoil  because  of  the 
smoothing  effect  of  the  artificial  viscosity. 

In  order  to  operate  on  a  fine  mesh,  we  have  added 
an  additional  smearing  term  to  inhibit  the  formation  of 
shocks.   We  describe  this  term  in  more  detail  in  the 
next  section.   It  has  the  form  of  an  artificial  viscosity 
multiplied  by  a  coefficient  e^Aw   ,  where   Aw   is  the 
mesh  width  in  the  angular  direction.   The  factor  e,  can 
be  varied  to  change  the  amount  of  smoothing  used.  This 
permits  the  use  of  more  viscosity  in  the    early  itera- 
tions when  it  is  important  to  suppress  shocks,  and  less 
viscosity  towards  the  end  of  the  computation  when  a  more 
accurate  solution  is  desired.   The  additional  smoothing 
term  therefore  significantly  increases  the  versatility  of 
the  design  routine. 
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2.    The  Flow  Computation 

In  this  section  we  discuss  the  difference  scheme 
used  in  the  flow  calculation  and  also  give  the  form  of 
the  additional  artificial   viscosity  term  used  in  the 
design  procedure. 

For  computational  purposes  it  is  convenient  to 
remove  the  singularities  of  (l)(r,co)  and  h(r,(ij)  by  defining 


q   e 


^0 


^(r,w)  =  — cos  (u)+  a  -  b^]  +  <l'(r,(jj)  ,   h(r,oj)  =  — ^  '^ 

The  equations  for  <I>(r,oj)  then  become 


(3.10)  r^(c^-  u'^)^        -    2ruv<t>   +  (c^-v^)<t>   +  r  (c^-2u^-v^)  * 

rr        ru)  wto  r 

+  -  (u^+  v^) [ruH   +  vH  ]   =   0  , 
r  r     (jJ 

where 

2        ^0 
u  =  [r  <t>   -  q^e   cos  (w+a-b  )  ] /H  , 

^0 
V  =  (r*   -  q  e   sin(u)  +  a  -  b-)]/H  , 

(jO  "^  \J 

2 
and  c   is  given  by  Bernoulli's  law  (2.7).   The  boundary 

conditions  (2.13),  (2.10),  and  (2.12)  become 

(3.11)  *(0,u))   =   -  27  tan" -^      :i((j+a-bQ))  , 

^0 

(3.12)  *^(l,a))   =   q^e   cos  (u  +  a  -  bg)  , 

(3.13)  *^^(1.0)   =   -  q^e  "  sin  (a  -  b^)  . 
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In  the  flow  computation,  centered  differences  are  used 

to  approximate  the  coefficients  of  4>    ,  $    ,  and  $    , 

'^^  rr     rco        ojoj 

as  well  as  all  of  the  lower  order  terms  in  (3.10)  .   A  rotated 
difference  scheme  due  to  Jameson  [20]  is  used  to  evaluate 
the  second  derivatives.   This  method  uses  centered  differ- 
ences at  all  subsonic  points.   At  supersonic  points, 
one-sided  differences  that  are  retarded  in  the  local  stream 
direction  are  used  to  produce  an  artificial  viscosity 
similar  to  (3.15)  below.   The  resulting  nonlinear  algebraic 
equations  are  solved  using  line  relaxation  in  the  direction 
of  the  flow. 

For  the  two-dimensional  flows  past  a  wing  section  that 
we  consider,  the  direction  of  supersonic  flow  is  to  a  good 
approximation  alligned  with  the  oj-coordinate  direction. 
The  original  Murman-Cole  scheme  would  suggest  the  approxi- 
mation 


$  .  .-2<|) .  ■_,+$■  •_-, 

(3.14)    4)   (i  Ar,  j  Aw)  z    -^ ^'^    ^    .^'^ 

(Aoj) 


which  is  first  order  accurate  at  (i  Ar,  j  Aw) .   The  dominant 
truncation  error  in  (3.14)  is  Aa)$    (i  Ar,  j  Aco)  ,  which  has 
the  effect  of  an  artificial  viscosity.   We  may  consider 
this  scheme  as  an  approximation  to  the  equation 

(3.15)   r^(c^-u^)4)   +  ...  =  Aw  max  [0,  (v^-c^)]*   ,  . 

rr  tocoo) 


32 


The  artificial  viscosity  on  the  right  is  absent  in  the 
subsonic  regions  and  the  coefficient   tends  to  zero 
at  the  sonic  line. 

In  order  to   improve  the  convergence  of  the  design 
routine,  we  have  added  an  additional   artificial  viscosity 
to  the  flow  equation  (3.10).   The  added  term  has  the  form 

(3.16)  e^Aco  1^  [V(M)  4)^J 

which  is  motivated  by  the  Murman-Cole  artificial  viscosity 
appearing  in  (3.15).   Here  V(M)  is  a  smooth  function  of 
the  local  Mach  number  M  which  vanishes  for  M  <^  M.  and  is 
one  for  M  >^  M^  .   We  choose  the  numbers  M.  and  M,  so  that 
this  term  is  effective  across  the  sonic  line.   For  exeunple, 
we  may  use  M   =  0.8  5  and  M,  =  0.95.   This  is  in  contrast 
to  the  behavior  of  the  artificial  viscosity  in  (3.15), 
which  is  switched  off  at  the  sonic  line. 

The  term  (3.16)  is  added  directly  to  the  rotated 
difference  scheme,  so  that  for  e.  =  0   the  original  scheme 
remains  unchanged.  Figure  5  illustrates  the  smoothing  effect 
of  (3.16)  for  a  flow  with  a  weak  shock  on  a  fine  mesh. 
Note  that  the  shock  does  not  appear  on  a  cruder  mesh. 

By  adding  the  term  (3.16)  to  the  partial  differential 
equation  (3.10)  we  can  obtain  satisfactory  convergence  of 
the  design  scheme  on  either  crude  or  fine  meshes  as  desired. 
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3 .    The  Conformal  Mapping 

In  this  section  we  discuss  the  calculation  of  the 
mapping  function  from  (3.3a),  and  we  also  explain  how  the 
Mach  number  M   ,  the  coefficient  of  lift  C^  ,  and  the 

oo  '  L  ' 

rotation  factor  b_  are  obtained. 

During  each  design  iteration  we  use  the  data  Q(s) 
and  the  previous  estimate  ({)      (r,co)   for  the  potential 
function  to  calculate  a  boundary  correspondence  s  =  s    (to) 
between  the  unit  circle  and  the   nth  approximation  to  the 
airfoil.   The   values  <t)  (r,Lo)  are  obtained  from  the 

analysis  routine,  which  uses  dimensionless  units  that  are 
normalized  by  the  free  stream  velocity  q^  and  the  chord 
length  L  of  the  profile.   Since  q^  and  L  are  not  specified 
for  the  design  problem,  it  is  necessary  to  adjust  the  scal- 
ing at  each  iteration  to  make  the  prescribed  data  compatible 
with  the  units  used  by  the  analysis  routine. 

In  order  to  use  the  analysis  routine  we  need  to  supply 
values  for  the  free  stream  Mach  number  M   and  the  lift 

oo 

coefficient  C^ .   To  determine  M  we  use  the  relation 


(3.17)       I 


2 


Y+1   ^  1  ,     1 

Y-1     2    ,_,,^    2    ' 


^q      ■'        '  (y-1)M 

which  results  from  Bernoulli's  law  (2.14)  and  (2.7).  The 
speed  q^  corresponding  to  the  data  Q(s)  and  c^  is  obtained 
iteratively.   In  the  first  cycle  we  use  the  value  for  q^ 
provided  by  the  incompressible  solution.   At  the   nth  step. 
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q     is  chosen  to  be  the  scale  factor  that  minimizes  the 
expression 


(3.18) 


I 
i 


f  (n-1)^    Q^(s^"M-)]l 
qi      


(n) 


) 


where  the  points  w.  are  evenly  distributed  around  the  unit 
circle  and  q.      are  the  velocities  along  the  surface  of 
the  (n-1)  St   approximation  to  the  airfoil  as  computed  by 
the  analysis  routine. 

The  coefficient  of  lift  supplied  to  the  analysis 
routine. 


Q(s')ds  ' 


^L  =  ^ 


^  q  L 

2   ^oo 


2  ^ooL 


is  also  affected  by  the  scaling  and  must  be  similarly 
adjusted. 

In  order  to  evaluate  s    (w)  we  use  the  data  Q(s)  and 
4i^'^~  '(l,w)   as  follows.   Formula  (2.15)  is  integrated  to 
provide  the  function 


s 
*j^(s)  =  I  Q(s')  ds- 


♦ 


,  has  a  minimum  at  the  stagnation  point  of  Q,  say  s.  , 


and  is  monotonic  on  either  side  of  s-.   We  define  a  smooth 


function 

*2(s)    = 

(3.19) 

l(^0>    ' 

[+   /*^(s)    - 

/ 

s  <  s 


s  >  s 


0  ' 


0  ' 
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which  is  monotonically  increasing  and  can  be  inverted. 

Both  the  speed  Q  and  the  arc  length  s  may  then  be  considered 

functions  of  the  modified  potential  $_. 

At  the   nth  stage  of  the  iteration,  the  potential 

~(n-l) 

(j)    {l,w)  is  modified  as  in  (3.19)  .   The  result  is 

scaled  to  have  the  same  range  as  ^^   and  inserted  into  the 

appropriate  expressions  for  Q  and  s.   This  provides  an 

expression  s  =  s    (co)   which  can  be  differentiated  and 

used  directly  in  (3.3a)  instead  of  using  (3.5),  which 

requires  special  treatment  at  the  stagnation  point. 

The  series 


(3.3a)   log 


ds(") 


„   .   oj   doj 
2  sin  2 


V    (n)     ,     ,  (n)     , 
I      a'   cos  ktjj  -  b'   sin  ku 

k=0  ^  ^ 


(  n\ 

is  truncated  at  N  terms  and  the  coefficients  a^:    and 
a^'^   +  ib^"   ,  k  =1,...,N-1   are  obtained  using  a  fast 
Fourier  transform.   This  procedure  does  not  provide  the 
coefficient  b^   ,  which  determines  the  orientation  of 
the  airfoil  with  respect  to  the  coordinate  axes.   To  find 
b^   ,  we  appeal  to  the  Kutta  condition 

(3.13)      <D  (1,0)  =  -  q^  e  "  sin  (a  -  b^)  . 

At  the  nth   stage  of  the  iteration,  b^,    is  determined  so 

that  (3.13)  will  be  satisfied  as  the  iterations  converge. 

In  summary,  at  each  iteration  we  rescale  the  data  to 

update  M^  and  C   ,  and  determine  the  mapping  coefficients 
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a„    and    c,     =    a      +    ib,      ,    k   =    1,...,N-1,      which   are    used    as 

U         K      K        K 

input  to  the  analysis  routine.   The  analysis  routine  then 
provides  the  potential  $(r,aj)   along  with  the  necessary 
rotation  factor   b„  to  complete  the  cycle.   The  iterations 
continue  until  the  velocity  along  the  airfoil  computed 
by  the  analysis  code  agrees  well  enough  with  the  prescribed 
data  Q(s).   The  remaining  boundary  conditions  are  automati- 
cally satisfied,  since  at  each  iteration  we  use  the  analysis 
routine  to  solve  for  the  flow  past  a  given  airfoil. 
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4 .    The  Boundary  Layer  Correction 

For  the  computations  to  be  of  practical  value  it  is 
important  to  supplement  the  inviscid  equations  discussed 
thus  far  with  equations  describing  the  flow  near  the 
surface  of  the  wing  section  where  viscous  effects  cannot 
be  disregarded.   To  do  this,  the  inviscid  theory  is  used 
to  design  a  profile  with  a  finite  thickness  between  the 
upper  and  lower  surfaces  at  the  trailing  edge.   Next  a 
boundary  layer  correction  is  computed  on  the  basis  of 
the  inviscid  pressure  distribution.   The  displacement 
thickness  of  the  boundary  layer  is  then  subtracted  from 
the  coordinates  of  the  inviscid  profile.   Thus  the  end 
results  of  the  computations  are  the  actual  coordinates  of 
the  airfoil,  a  viscous  boundary  layer  next  to  the  surface 
of  the  airfoil,  and  inviscid  flow  outside  the  streamline 
determined  by  the  boundary  layer . 

The  method  oZ   Nash  and  Macdonald  [2  8]  is  used  to 
compute  the  turbulent  boundary  layer  correction.   The 
momentum  thickness  9   and  the  displacement  thickness  6 
are  calculated  from  the    von  Karmen  momentum  equation 


*  * 

(3.20)      J +  (2  +  H  -  M  )  -^ =  — T" 

ds  ds  q       2 

pq 

where   H  =  6*/9*   is  the  shape  factor  and  t  is  the  skin 

2 

friction.   M   and  q  are  functions  of  arc  length   s  determined 

by  the  inviscid  solution,  and  H  and  t  are  given  by 


semi -empirical  formulas.   The  ordinary  differential  equation 
(3.20)  is  integrated  from  transition  points  {x^,y^)    that  must 

K   K 

be  prescribed  on  the  upper  and  lower  surfaces  of  the  airfoil, 
and  a  starting  value  for  6   is  obtained  from  the  specified 
Reynolds  number  of  the  flow. 

Separation  of  the  boundary  layer  is  predicted  when  the 
Nash-Macdonald  parameter 

C     =   -   ^^ 
sep     q   ds 

exceeds  0.004.   It  is   important  to  choose  the  input  speed 

distribution  so  that  C     remains  around  0.003  on  the  upper 

sep  '^'^ 

surface  near  the  trailing  edge.   This  is  our  version  of  a 
criterion  due  to  Stratford  for  avoiding  boundary  layer 
separation  [3  5] . 

When  theoretically  designed  airfoils  are  evaluated 
in  wind  tunnel  tests,  it  is  sometimes  found  that  the  effects 
of  the  boundary  layer  cause  losses   in  lift  and  other 
discrepancies   between  theory  and  experiment.   However, 
airfoils  designed  with  such  a  Stratford  pressure  distribu- 
tion using  a  similar  inverse  formulation  [4]  have  been 
found  to  meet  their  design  specifications  in  wind  tunnel 
testing . 
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IV,   COMPUTATIONAL  RESULTS 

In  this  chapter  we  present  some  results  produced 
by  the  design  mode  of  the  analysis  code.   We  include 
a  description  of  pressure  distributions  that  generate 
profiles  with  no  significant  drag  creep  according  to 
the  analysis  code.   Possible  extensions  of  the  main 
ideas  to  other  problem.s  in  transonic  flow  are  discussed 
in  Section  4.2. 

1 .    The  Design  Procedure 

The  inverse  method  of  airfoil  design  uses  as  input 
the  pressure  distribution  rather  than  the  airfoil 
coordinates.   In  order  to  obtain  airfoils  with  acceptable 
drag  levels,  an  appropriate  pressure  distribution  must  be 
prescribed.   In  this  section  we  discuss  a  method  of  using 
the  design  mode  that  produces  wing  sections  with  low  wave 
drag  as  predicted  by  the  analysis  mode. 

Our  first  example  appears  in  Figures  6  and  7.  Figure  3 
shows  the  speed  distribution  used  to  produce  the  airfoil 
of  Figure  6.   On  the  upper  surface  the  speed  distribution 
rises  from  the  stagnation  point  at  the  nose  to  a  flat 
section  of  supersonic  values  along  the  first  sixty  percent 
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of  chord,  and  then  falls  into  a  Stratford  distribution 
near  the  tail.   The  distribution  over  the  lower  surface 
is  entirely  subsonic  and  is  arranged  so  that  the  lift 
is  evenly  distributed  along  the  section,  with  aft  load- 
ing at  the  tail.   The  profile  has  been  provided  with  a 
gap  at  trailing  edge  so  that  a  boundary  layer  correction 
can  be  removed  from  the  displayed  coordinates,  as  shown 
in  Figure  7 . 

Our  experience  with  the  design  routine  to  date 
indicates  that  drag  creep  can  be  avoided  by  designing  the 
airfoil  to  have  a  small  enough  supersonic  zone.   The 
supersonic  zone  can  be  increased  or  decreased  in  size 
as  desired  by  varying  the  critical  speed  c^  used  in  the 
design  routine.   If  too  large  a  supersonic  zone  is  used 
at  design,  the  middle  part  of  the  zone  tends  to  collapse 
at  speeds  below  design,  giving  rise  to  one  or  two  shocks 
that  can  cause  significant  wave  drag  at  off-design  condi- 
tions.  This  effect  is  reduced  by  designing  at  a  lower  Mach 
number  with  a  smaller  supersonic  zone. 

Figure  8  shows  an  airfoil  design  with  a  speed  distri- 
bution similar  to  that  of  Figure  6  but  with  the  critical 
speed  c^  lowered  so  that  the  supersonic  zone  is  significant- 
ly larger.   The  pressure  distribution  was  altered  slightly 
near  the  nose  and  tail  of  the  airfoil  to  retain  the  same 
thickness-to-chord  ratio  and  about  thi-  -....       at  the  tail. 
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when  drag  rise  curves  are  computed  for  these  two  airfoils, 
the  profile  designed  with  the  larger  supersonic  zone 
exhibits  drag  creep  as  illustrated  in  Figure  9.   The 
observed  difference  in  the  drag  levels  for  the  two  profiles 
is  due  to  increases  in  both  the  wave  drag  and  the  form  drag 
of  the  second  airfoil,  although  both  airfoils  have  virtually 
identical  form  drag  at  subcritical  speeds. 

The  design  mode  can  also  be  used  to  improve  the 
performance  of  airfoils  by  altering  off-design  pressure 
distributions.   For  example,  we  may  exploit  the  fact  that 
some  shockless  airfoils  designed  by  hodograph  procedures 
exhibit  characteristic  off-design  distributions  when 
evaluated  near  the  design  angle  of  attack  with  a  lower  Mach 
number  (cf.  [2],  p.  96;  [3],  p.  131,  p.  143).  The  speed  along 
much  of  the  upper  surface  is  roughly  sonic,  with  a  pronounced 
peak  near  the  nose  of  the  profile.   Such  peaky  distributions 
also  recall  the  experimental  work  of  Pearcey  [31],  as  well  as 
Boerstal  and   Uijlenhoet  [9  ]  and  Nieuland  and  Spee  [29], 
who  have  published  examples  of  shockless  airfoils  designed 
with  peaky  distributions. 

We  illustrate  the  use  of  this  observation  with  another 
example.   We  begin  with  an  airfoil  that  was  obtained 
using  the  design  mode  with  a  Mach  number  M^  =  0.745.   We 
use  the  analysis  routine  to  compute  flows  past  this  profile 
with  the  same  angle  of  attack  but  with  smaller  Mach  numbers. 
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At  M   =  0.710   there  results  the  distribution  shown  in 
Figure  10,  with  an  upper  surface  distribution  that 
resembles  the  characterisiic   distributions  except  for 
a  bump  in  the  distribution  around  sixty  percent  of  chord. 
This  distribution  is  obtained  as  output  from  the  code  in 
the  form  of  punched  cards.   We  modify  the  distribution  by 
removing  the  bump  so  that  the  distribution  remains  relatively 
flat  along  this  section  of  the  airfoil.   The  resulting 
distribution  is  used  in  the  design  mode  to  obtain  the 
airfoil  shown  in  Figure  11.   In  Figure  12  we  display  drag 
rise  curves  for  this  airfoil  and  a  shockless  airfoil  with 
similar  specifications  designed  by  Dr.  Jose  Sanz   using 
the  hodograph  code  of  [4] .   The  airfoil  produced  by  the 
design  mode  of  the  analysis  code  compares  quite  favorably 
with  the  shockless  airfoil.   Figure  13  shows  that  a  near- 
shockless  flow  is  obtained  at  M   =  0.740. 

OO 

The  two  previous  examples  illustrate  the  procedure  we 
use  to  obtain  airfoils  with  low  wave  drag.   We  start  with 
an  upper  surface  speed  distribution  similar  to  the  one 
appearing  in  Figure  3.   This  portion  of  the  distribution 
determines  the  wave  drag  experienced  by  the  airfoil  at 
off-design  conditions  and  also  determines  the  growth  of 
the  boundary  layer  near  the  tail.  To  obtain  airfoils  with 
a  given  gap  at  the  tail,  thickness-to-chord  ratio,  and  lift, 
the  lower  surface  distribution  should  be  modified  as  v 
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will  indicate  in  Section  6.1.   The  value  of  c^  used 
determines  the  free  stream  Mach  number  M   ,  as  well  as 
the  size  of  the  supersonic  zone.   In  order  to  find  the 
proper  size  for  the  supersonic  zone,  it  may  be  necessary 
to  make  a  tentative  choice  for  c^  and  use  the  analysis 
code  to  calculate   a  drag  rise  curve  for  the  resulting 
profile.   The  size  of  the  supersonic  zone  should  be 
decreased  if  the  wave  drag  is  too  high  at  speeds  below 
design. 

The  size  of  the  supersonic  zone  used  at  design 
determines  the  height  of  the   pressure  peak  near  the  nose 
of  the  profile  at  off-design  conditions,  which  in  turn  is 
related  to  the  amount  of  wave  drag  occurring  below  design. 
The  amount  of  wave  drag  near  the  design  condition  is 
effected  by  the  curvature  of  the  profile  at  the  rear  of 
the  supersonic  zone,  which  is  governed  by  both  the 
prescribed  pressure  distribution  and  the  amount  of 
artificial  viscosity  used  in  the  design  routine.   Rather 
than  attempting  to  adjust  this  area  of  the  profile   when 
it  is  in  the  most  sensitive  region  of  flow,  we  have  found 
it  more  convenient  to  make  any  necessary  modifications  in 
an  additional  design  run  at  a  lower  Mach  number  correspond- 
ing  to  the  characteristic  off-design  condition  as  in 
Figures  8  and  9.   To  do  this,   the  analysis  mode  is  used 
to  obtain  the  flow  past  the  profile  at  the  design  angle  of 
attack   but  with  lower  Mach  numbers .   At  some  Mach  number 
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the  flow  should  have  a  pressure  peak  near  the  nose 
followed  by  a  section  of  nearly  constant  sonic  flow. 
The  pressure  distribution  over  the  region  corresponding 
to  the  rear  of  the  supersonic  zone  at  the  design  condition 
is  examined  for  any  irregularities,  and,  if  necessary,  the 
pressure  distribution  is  modified  near  this  point  so  that 
it  more  closely  resembles  the  characteristic  off-design 
distribution  of  shockless  airfoils. 

In  taking  this  approach,  our  philosophy  is  therefore 
to  use  a  relatively  simple  upper  surface  distribution  as 
in  Figure  3  at  the  design  condition.   At  this  stage  we 
adjust  the  remainder  of  the  input  distriubtion  so  that  the 
airfoil  has  the  desired  specifications  and  we  determine 
the  size  of  the  supersonic  zone  so  that  the  off-design 
performance  is  acceptable.   In  doing  so  we  operate  on  the 
fine  mesh  of  code  H  with  enough  added  artificial  viscosity 
to  ensure  convergence  of  the  scheme. 

If  the  analysis  mode  is  used  to  evaluate  the  airfoil 
at  the  design  condition,  the  resulting  pressure  distribution 
usually  agrees  with  the  assigned  pressure  distribution 
except  near  the  rear  of  the  supersonic  zone  where  the 
extra  artificial  viscosity  used  in  the  design  mode  has 
its  largest  effect.   Rather  than  attempting  to  achieve 
better  agreement  between  design  and  analysis  in  this  region 
by  using  less  artificial  viscosity  in  the  design  mode,  •  •" 
instead  go  to  the  off-design  condition  to  make  any  necessary 
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modifications  to  the  profile  at  this  point.   Small  correc- 
tions usually  do  not  significantly  alter  the  specifications 
of  the  airfoil  that  were  determined  at  design.   The  result 
is  a  smooth  profile  with  low  wave  drag  at  off-design  condi- 
tions . 

We  discuss  the  implementation  of  this  procedure, 
together  with  the  necessary  boundary  layer  correction, 
in  Sections  6.1  and  6.2. 

Figure  14  shows  an  airfoil  with  a  larger  supersonic 
zone  designed  on  a  fine  mesh  using  a  relatively  small 
coefficient  e,  =  0.05   in  the  additional  artificial 
viscosity  term  (3.16).   The  appearance  of  the  sonic  line 
suggests  the  presence  of  a  shock  in  the  interior  of  the 
flow  region  which  weakens  as  it  approaches  the  profile. 
This  picture  illustrates  the  fact  that  this  approach  does 
not  produce  shockless  airfoils,  but  can  provide  some  contro] 
over  the  shock  strength  at  the  body  by  fitting  a  smooth 
pressure  distribution. 
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2 .    Extensions  of  the  Technique 

A  procedure  similar  to  the  one  presented  here  would 
allow  the  design  of  transonic  cascades  with  low  wave  drag. 
Codes  which  compute  transonic  flow  past  turbines  and 
compressors  by  using  relaxation  schemes  similar  to  the 
one   in  the  analysis  code  used  here  have  been  written  [19] 
and  would  presumably  lend  themselves  to  a  similar  design 
modification.   An  attractive  feature  of  this  approach 
would  be  avoiding  the  complicated  paths  of  integration 
necessary  for  the  design  of  transonic  cascades  using  complex 
characteristics  in  the  hodograph  plane  [4].   For  example, 
it  might  prove  possible  to  obtain  cascades  with  a  smaller 
gap-to-chord  ratio  than  can  be  obtained  using  the  hodograph 
method . 

An  important  extension  of  this  method  is  to  the  case 
of  three-dimensional   transonic  flow  past  wing-body  combina- 
tions.  The  results  obtained  so  far  with  the  design  routine 
suggest  that  by  choosing  the  proper  pressure  distribution, 
a  satisfactory  wing  might  be  obtained  with  the  mesh  widths 
usually  available  to  three-dimensional  codes.   Analysis 
codes  that  compute  the  transonic  flow  past  a  given  wing 
are  currently  available  [3,21].   it  would  be  necessary 
to  extend  the  method  used  in  two  dimensions  to  treat  the 
more  complicated  free  boundary.   One  possibility  would  be 
to  use  a  separate  conformal  mapping  at  each  wing  section 

to  define  the  wing. 
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V.   A  CONVERGENCE  THEOREM 

This  chapter  treats  some  theoretical  aspects  of  the 
design  problem.   Section  1  describes  the  simplest  design 
problem  in  incompressible  flow,  where  the  method  is  exact. 
Section  2  outlines  a  convergence  proof  for  an  iteration 
scheme  similar  to  the  one  used  in  the  computations.   The 
estimates  needed  for  the  proof  are  described  in  Section  3. 

1.    The  Incompressible  Problem 

In  this  section  the  design  problem  is  illustrated  for 
the  elementary  case  of  incompressible  flow.   The    explicit 
solution  obtained  here  is  used  in  the  next  section  as  the 
basis  for  a  convergence  proof  of  an  iteration  scheme  similar 
to  the  procedure  outlined  in  Chapter  3   in  the  case  of 
subsonic  compressible  flow. 

To  make  the  presentation  as  simple  as  possible  we  will 
consider  the  case  of  purely  circulatory  flow  around  a 
smooth  object.   The  Kutta-Joukowski  condition  (2.12)  is 
then  unnecessary  and  the  speed  of  the  flow  at  infinity  is 
zero,  which  simplifies  the  asymptotic  representation  (2.13). 
It  is  also  convenient  to  formulate  the  problem  in  terms  of 
the  stream  function  tj;  as  well  as  the  velocity  potential  <t> . 

We  first  establish  some  notation  which  will  be  useful 
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in  the  next  section.   Consider  a  flow  circulating  around 
a  smooth  body  as  indicated  in  Figure  15.   We  choose  units 
so  that  the  total  arc  length  of  the  body  is  2tt,  so  that 
the  density  tends  to  one  at  infinity,  and  so  that  the 
maximum  speed  on  the  surface  of  the  body  is  one.   We 
measure  arc  length  s   from  a  fixed  reference  point  on  the 
body  and  express  the  coordinates  as  functions  (x(s),y(s)) 
of  s  for  0  £  s  <  2  .  The  speed  of  the  fluid  along  the 
body  is  denoted  by 

(5.1)  Q(s)  =  |u(x(s)  ,y(s))  | 

for  0  £  s  <_  27T.   We  let  6  =  min  Q(s)  >  0  so  that  6  <_   Q(s)  <_   1, 

The  potential  function 

s 

(5.2)  *(s)  =  j  Q(s')  ds' 

0 
is  then  monotonically  increasing  and  *  (2tt) -*  (0)  =  -T  >^  2i:6, 

where   r  <  0  is  the  circulation  of  the  flow. 

It  is  convenient  to  consider  Q(s)  as  defined  by  (5.1) 

to  be  a  2'n-periodic  function  defined  for  -«  <  s  <  '^,  and  to 

consider  <t>  to  be  defined  on  the  whole  real  line.   The 

function 

(5.3)  s    =   S(*) 
inverse   to  ^  Is)    then   satisfies 

S(*   +   r)    -   S(*)    +   2iT 
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for  -00  <  $  <  00  ^  and  the  function 

(5.4)  Q($)  =  q[s(<I>)) 

has  period  -T   over  the  real  axis. 

In  this  section  the  motion  is  assumed  to  be  incompres- 
sible, which  means  we  may  take   p  =  1  in  (2.2)  .  Formulas 
(2.8a)  and  (2.8b)  then  show  that  the  complex  function 

(5.3)  x(z)  =  <l'(z)  +  i^(z) 
is  analytic  with  derivative 

dx 

j^  =  U  -  IV  . 

dz 
Near  infinity,  the  asymptotic  form  analogous  to  (2.13)  is 

r 

(5.4)  X(z)  '^  2¥I  ■'-°^  ^  • 
We  normalize  x  so  that 

(5.5)  4'(x(s)  ,y(s))   =  0. 

We  begin  by  observing  that  the  body  is  determined  up 
to  a  rotation  and  translation  by  the  function  Q(s).  To  see 
this,  consider  the  conformal  mapping  z  =  f(c)  which  takes 
the  interior  of  the  unit  circle  in  the  C-plane  onto  the 
region  exterior  to  the  body  in  the  z-plane.  We  assume  the 
pole  of  f  is  located  at  C  =  0  and  f(l)  =  x(0)  +  iy(0). 

In  the  c-plane,  the  complex  potential  x  assumes  the 
simple  form 
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-r 


x(;)  =  21FI  log  ^' 


itij 


and  in  particular  for  C  =  e  , 


*(e   )  =  -  2? 


corresponds  to  the  function  $(s).   This  provides  a  corres- 
pondence s  =  s(oj)  between  the  unit  circle  and  the  surface 
of  the  body  of    the  form 


(5.6) 


=  =  si-t^. 


which  is  valid  for  all  w .   To  determine  the  body  from  the 
boundary  correspondence  (5.6),  we  note  that  if 
F(c)  =  -c^f  •  (C) ,  we  have 


F(e^")|  = 


dz  -  ioo. 


ds  ,  V 
du) 


and  therefore 


(5.7)  logiF(e   ) |  =  log 


ds  d({) 
d4i  du) 


=  log 


-r 


2^  Q(^ 


This  determines  the  boundary  values  of  the  harmonic  function 
log|F(;)|.   If  G(rJ  is  a  conjugate  harmonic  function  for 
log  I  F  ( ^. )  I  ,  we  have 


(5.8)      f '(t)  =  C" |F(C) 


(r)  +  1. 


where  b   is  a  real  constant.   Thr  nnpping  f(c)  is  therefore 


determined  up 
flow 


translation 


—  I —  .1 


(s) .  The 
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(5.9)  u  -  iv  =  

2TTiC  f  (C) 

is  determined  as  well  up  to  a  multiplicative  factor  e 
This  is  all  that  can  be  expected,  since  a  Euclidean 
transformation  of  the  coordinates  leaves  the  speed  distri- 
bution Q  unchanged . 

We  may  now  change  our  viewpoint   and  let  the  formulas 
(5,7),  (5.8),  and  (5.9)  determine  a  nonzero   analytic 
function  f ' (C)  and  a  flow  u  -  iv ( ^ ) ,  say  with  b_  =  0, 
from  a  prescribed  function   Q(s).   Provided  that  the  func- 
tion  f(C)  determines  a  reasonable  profile,  the  boundary 
condition  (5.7)   shows  that  the  resulting  flow  u-iv(z) 
does  have  magnitude  Q  on  the  body,  since 

|u-iv(x(s),y(s))  I  =  ||^  (t.[x(s),y(s)]  I  =  if^ll^l  =Q(s)  • 

The  question  arises   whether  every  smooth,  periodic 
function  Q(s)  determines  a  reasonable  profile  (x(s),y(s)). 
This  is  not  the  case.   For  example,  if 


f  (O  =  -  -\   exp  I      cc^    , 
C       n=0   " 

then 


1  i  ""o 

0  =   0   dz  =  -    Of  (C)  d^  =  2TTi  c^  e    , 

body       Ul=l 
where 
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2Tr 

Cj^   =  4      J    log|F(a  I    e"^*^  du)    . 
0 


This    imposes    a   compatibility   condition 


27r 
f 
0    =       I    log    Q 


-To) 


2-n 


-lU)      -, 

e  du) 


0 


on  Q{s)  in  order  to  obtain  a  closed  body  in  the  z-plane: 
In  the  transonic  design  problem  for  flow  past  an  airfoil, 
an  analogous  condition  on  Q  allows  one  to  design  airfoils 
that  have  a  finite  thickness  between  the  upper  and  lower 
surfaces  of   the  trailing  edge  in  order  to  represent  a 
wake  extending  downstream  from  the  tail  of  the  airfoil. 

A  more  subtle  detail  is  that  the  mapping  z  -   f (C) 
determined  by  Q(s)  may  define  a  profile  with  self-intersect- 
ing  boundaries.   In  the  airfoil  design  problem,  this 
consideration  is  important  since  the  body  determined  by 
Q(s)  may  have  so  much  curvature  that  the  top  and  bottom 
surfaces  overlap. 

Nevertheless,  we  emphasize  that  the  formulas  (5.7), 
(5.8),  and  (5.9)  do  provide  a  locally  one-one  mapping 
2  =  f(;)  and  a  flow  u-iv(^)  if  only  Q(s)  is  positive  and 
periodic.   Similarly,  the  numerical  computations  for  the 
transonic  desitjn  problem  ar^  • — ^"ible  under  very  mild 
requirements  on  Q(s) ,  and  the  process  converges  whether 
or  not  the  resulting  airfoil  is  physically  realizable. 
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It  falls  to  the  user   of  our  computer  code  to  make  the 
modifications  of  Q(s)  necessary  to  obtain  an  acceptable 
geometry . 
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2.    A  Convergence  Proof  for  the  Compressible  Case 

We  now  consider  the  more  complicated   case  of  subsonic 
compressible  flow  around  a  smooth  obstacle.   We  wish  to 
show  that  an  iterative  procedure  similar  to  the  one  used 
in  the  numerical  computation  converges  to  a  solution   of 
the  inverse  problem.  The  approach  we  take  exploits  the 
idea  that    incompressible  flow  can  be  considered  to  be 
a  limiting  case  of  compressible  flow  as  the  speed  of 
sound  c  becomes  infinitely  large.   The  convergence  proof 
requires  the  maximum  Mach  number  in  the  flow  to  be  small, 
which  can  be  assured  by  taking  the  prescribed  critical 
speed  c^  large  enough.   In  this  case  we  obtain  a  Poisson 
problem  with  nonlinear  inhomogeneous  terms  which  we  solve 
by  iteration.   We  are  able  to  use  standard  estimates 
expressed  in  terms  of  HdJlder  continuity  to  show  that  the 
iterative  procedure  defines  a  contraction,  so  that  the 
iterations  converge.   Less  restrictive  results  could  prob- 
ably be  obtained  using  deeper  techniques  from  the  mati. 
cal  theory  of  subsonic  flows.  However,  ti      of  outlined 
here  is  a  satisfactory  illustration  of  t'      putational 
procedure,  which  is  our  main  concern. 

For  th'    ''^onic  df         '         ritical  speed 
given  in  additi      the  speed  distributio; 
We  continue  to  use  the  conventions  of  Section  5.1,  with 
units  •'  it   p  at  infinity  and 

max  Q(s)  =  1.   As  in  the  computational  p      ro,  we  solve 
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the  free  boundary  problem  by  finding  both  the  map  z  =  f(C) 
from  the  interior  of  the  unit  circle  to  the  region  exterior 
to  the  desired  body  and  by  solving  for  the  compressible 
flow  u{c,)  .      We  show  that  for  a  fixed  speed  distribution 
Q(s) ,  if  c^  is  sufficiently  large  we  may  construct  a  map 
z  =  f(C)  and  a  stream  function  i^  ( rj  ,  both  depending  on  c^  , 
which  approach  the  corresponding  incompressible  solutions 
determined  by  Q(s)  as  c^  ^  0°  . 

For  compressible  flow,  the  velocity  potential  tj)  and 
stream  function  \p ,      considered  as  functions  of  the  variable 
c,    =    E,    +    IT],    satisfy 


(5.10a)  p^^    =      ii       , 


(5.10b)  pcf)   =  -^^     . 

We  choose  to  work  with  i)    instead  of  (p    so  that  we  may  use 
the  Dirichlet  boundary  condition  ip    =    Q   rather  than  the 
Neumann  condition  8(()/3v  -    0. 

By  eliminating    (J)  from  (5.10a)  and  (5.10b)  we  obtain 
the  equation 


(5.11)  ^i>   =   ^ 
c 


U^rr+     2UV\l)^     +     V     Ip         +     -3 (il  ^  \  f   \  ^+     Ip     |f'L) 


2  f ' 


,      2    ,2,  2,^,  I 2      2    ,2,2|.,|2     2    2^   2 
where  u   =i^   /p|f'|   ,   v  =   \p,    /q    \f'\       ,q  =  u  +  v, 

2  2  Y-1 

and  c   =  (y+1)c^p    /2.   The  density  p  can  be  obtained  from 

Bernoulli's  law  in  the  form 
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(5.12) 


2    2 


2p^|f  (O  1^ 


,  1(Y+1)  ^2  Y-1  _  1  Y+1 
2(7-1)  ^*^     "2  7^ 


The  solution  we  shall  obtain  has  the  asymptotic  form 


*  '^  "I?  ^°^l^l 


as  c  "*"  0 ,  where  the  circulation  T    is  given  by 


27T 


r  =  - 


Q(s)  ds 


We   have    2tt    >_  -r    >_  2tt6,    with   6    =  min   Q(s)    >    0. 

We  again  consider  the  analytic  function  F(^)  =  -^'f'(^), 
which  satisfies  the  by  now  familiar  boundary  condition 


2^, 


(5.13)   log|F(e   ) |  =  log 


Q(<^(e^'^)) 


3   .  ,  10). 
l(Dv  ■»   3u)  ^ 


Using  (5.10)  we  have  p  34)/9(ji)  =  -9i|)/9r  ,  so  that  we  may  express 
the  potential  function  on  the  boundary  in  the  form 


(JL) 


(5.14) 


*(a))  =  - 


1     dip    ,    iw.  , 
^r  ^®   )  do)  . 


P(e   ) 


10), 


If  we  knew  the  solution  <])  (re   ),  (5.14)  could  be  used  in 
the  boundary  condition  (5.13)  for  the  determination  of  |f'(<;)|. 
We  consider  the  expressions 


(5.15) 


4'(r,)  =  .^.(r.)  -  (r/2Ti) 


(5.16)       H(r,)  =  log|F(0  |  -  1 
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where  -^;  ^n^^)    is  the  derivative  of  the  conformal  mapping 
obtained  by  solving  the  incompressible  problem  with  the 
same  data  Q(s),  as  described  in  Section  5.1.  T   and  H  are 
perturbations  of  the  corresponding  incompressible  solutions 
Note  that  T  and  H  are  not  singular  at  the  point  ^  =  0,  in 
contrast  to  both  the  mapping  f(^)  and  the  stream  function 

Substitution  of  the  expressions  (5.13)  and  (5.14)  into 
the  equations  (5.11)  and  (5.13)  for  i\j   and  F  shows  that 
T  and  H  must  satisfy  equations  of  the  form 


(5.17) 


A^l*  =  M[¥,H,c^] 


4'(e^"^)  =  0 


(5.18) 


AH  =  0 


10) 


H(e"")  =  N['i',H,cJ  , 


where  M  and  N  depend  nonlinearly  on  H*  and  H  and  formally 

2 
tend  to  zero  as  c^  ->■  °°.   We  give  the  explicit  form  of  M 

and  N  in  the  next  section.   M  is  a  function  of  V  and  the 

partial  derivatives  of  T  up  to  second  order,  H  and  log|F_ 

and  their  first  order  derivatives,  and  the  variables 

E,   and  n .   N  involves  the  boundary  values  of  H ,  H*  ,  and 

the  normal  derivative  (9H'/3r)  (e"'"'^)   in  a  manner 

similar  to  (5.13)  and  (5.14).   Tue  function  Q(s)   enters 

the  problem  through  the  term  N[H',H,c^]. 
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We  are  interested  in  solving  equations  (5.16)  and 
(5.17)  by  iteration.   We  set  T^^^  =  H^°^  =  0,  and  formally 
define  f^""^^)  and  H^""^^^  as  solutions  of 


(5.19) 


A4,(n+1)  ^  M[^("^H^"),c,] 


^(n+1)  ^^iojj  ^  Q 


(5.20) 


AH^^^l)  =  0 


^(n+l)(^i(.j  ^  N[4'("^l^H("^cJ 


We  denote  this  operation  by 

(5.21)      [>^^"-'1),h("^1)]  =  L(4'("^H^"^cJ. 

We  wish  to  show  that  for  a  given  Q(s),  if  c^  is  large 
enough  the  iterates  satisfy  an  inequality  of  the  form 


(5.22)  l^^^-'l^-'f^"^  +  I1H^""'^^-H^"^  <  9(IH'^''^-4'^""^^I 


+  IH^"^-H^""^> 


] 


with   G  <  1,  which  implies  convergence  of  the  iteration. 
We  therefore  must  examine  how  the  solutions  f      and  H 
of  (5.19)  and  (5.20)  depend  on  the  functions  "'"^  and  H^"^, 
and  we  must  define  the  norms   to  be  used  in  (5.22).  It 
turns  out  that  since  M  and  N  are  formally  small  a?;  c«  •■   , 
we  may  succeed  by  using  basic  estimates  for  Laplace's 
equation  which  are  expressed  in  terms  of  HOlder  continuity. 


59 


Let  D  denote  the  closed  unit  disk  and  consider  the 
space  C    (D)  consisting  of  n-times  continuously  differ- 
entiable  functions  u  defined  in  D  with  finite  norm 


ull  ,   =  sup 
"^'^   ceo 
i,  j<n 


9^3^  u(rj 


sup 
i+j  =1 


^l'^2^° 


'H    "(^1^  - 


'K    -(^2^ 


-  ^.r 


where  n   is  a  nonnegative  integer  and  0  <  a  <  1.   C    (D) 

is  a  complete  space  with  this  norm.   In  addition,  if 

u  e  c^^^(D),  then  u  6  C^,_^^,(D)  when  n'  ^  n 

and  a-  <  a,   and    "^1^,^^.  <  "u^^^^.   If  u^,U2  e  C^^^(D), 

then   u  -u^  g  C  ^  (D)  and   HUt-u^I  _^   <  K  ^  "u,"  ,  Hu^B  ,^. 
1   2     n+a  12  n+a  —  n+a   1  n+a   2  n+a 

If  u  e  C  ,  (D)  and  G  is  (n+1) -times  continuously  differ- 

n+a  ^ 

entiable  on  the  real  axis,  then  g(u(^;))  s  c    (D)  . 

We  also  need  the  idea  of  Hfllder  continuous  boundary 
values.   If  g(a))  is  an  n-times  continuously  dif  f  erentiable , 
2TT-periodic  function  defined  for  all  oj,   we  will  say 


g  e  C  ^  OD)  if  the  norm 
^     n+a 


Ig"   ^    '^^^  =  SUp    3  g  { GO )     +    SUp 

^  n+a ,  9D      ^  '    u}^  '       ^ 

0)  CO,  ,a)„ 

i<n 


<n 


n. 


^;^K)-V('^2) 


a)3_  -  u)2 


a 


is  finite.   The  norm  I'll  .   „r>  has  properties  similar  to 

n+a,dD     ^      '^ 

I'll  ^  .   Note  that  if  f(c)  e  c  ^  (D)  ,  then  f(e^^)  e  C  ^  (9D) 
n+a  n+a  n+a 

and  lf(e^'^)ll  ^   .n  <  K'   llfl  ^  . 
n+a,9D  —  n+a    n+a 
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For  any  fixed  a ,  0  <  a  <  1 ,  we  will  show  "H  ^^'    e  C^   (D) 

2+01 

and  H    e  C,^^  (D)  by  using  the  following  fact,  which  is 
an  elementary  instance  of  the  more  general  a  priori  esti- 
estimates  of  Schauder  [  6  ] : 

THEOREM.   Let  u(C)  be  the  solution  of 

Au  =  f 
u(e   )  =  <t> 

where      fee    (D)    and    <p  e   C-^    (9D)  .    Then  u  e   C-^    (D)    and 
a  2+a  2+a 


(5.23)  "ull„^      <    K^flfi       +    14)1^^      ^^]     , 

2+a   —3*-        a  2+a,3D'' 


where  K^  depends  only  on  a. 

We  will  also  use  the  following  consequence  of  (5.23). 

COROLLARY.   Let  u(c)  be  the  solution  of 

Au  =  0 
u(e   )  =  ({) 


nd 


where  (\>   e  C.^^OD).   Then  u  e  Cj^^^(D)  a 

(5.24)  iGl^^^  il<4'^'l+a,3D  ' 

where  K.  depends  only  on  a. 

This  result  can  be  obtained  from  the  previous  theorem 
(5.23)  by  setting 

2tt 
GCre^'^)  =  1^  (uCre^*"))  +  (^)   '   i^')  du. '  , 

6 
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where  u  is  obtained  by  solving 


Au  =  0 


10), 


0) 

r 


u(e^^) 


(})  (oj ' )  du) 


27 


2v 

r 


0 


(u)')  doj' 


We  assume  the  data  Q(s)  is  three  times  continuously 
dif ferentiable.   The  expressions  (5.2),  (5.3),  and  (5.4) 
show  that  the  function  Q(0)  is  also  that  smooth,  and 
we  set 


(5.25) 


^Q  = 


sup 

—  oo<  $<oo 

j=l,2,3 


Q(<J>) 


do- 


using (5.24)  we  see  that    the  harmonic  function  log|F-(c)| 
determined  by  (5.7)  is  in  Cj^_|_^(D)  with  II  log  |  Fq  ( c )  i  H -j^^^^ 

<_   K'  ,  where  kZ  depends   only  on  K_  ,  6  ,  and  a.   This 

I      I  2 
implies    F„(C)    g  c, ,  (D)  with  a  similar  bound 
f  '  0    '      1+a 

"l^0(^)|'"l+a  i^5  • 

Consider  the  closed  subset  B 

defined  as 


,      ,  of  C^^  (D) xc-^  (D) 
(r, ,r„)      2+a      1+a 


B 


(r^,r2) 


('^,H)  :  HH-I  _^   <  r,  ,  llHll  ,^   <  r„ 
'        2+a  —   1      1+a  —   2 


In  order  to  show  the  iteration  scheme  (5.21)  converges, 
we  first  establish  the  following 

LEMMA  A.   There  is  a  constant  K   depending  only  on 
a,  Y,  6  =  min  Q(s) ,  and  K    such  that  for  c^  >  K   ,  the 
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operator  L{- , ' ,c^)    formally  defined  by  (5.19)  and  (5.20) 

is  well  defined  on  B,.,-  ,,  and  maps  B,,-_  ,.  into  itself. 

(6/2 ,1)        "^         (0/2 , 1) 

Thus  the  iterates  t^""*"-"-^  and  h^""^-"-^  all   exist  and  satisfy 

„>j,(n+l),     ^  5/    „^(n+l),     ^  ^_ 
2+a  —  1+a  — 

We  sketch   the  derivation  of  the  estimates  necessary  for 
the  proof  of  Lemma  A  in  the  next  section.  There  we  show  that  if 
(1*  ,H  )  e  B,./p  ,>  and  if  c^  is  large  enough,  we  have 
Mr'{'^,H^,c^]  e  C^(D)  and  N  [H-^ ,  H^ ,  c^]  e  c^^^OD)  ,  with 

'^f^'"l'^*^"a  =  ^e/^*^  ^"^  '^f*l'"l'^*^"l+a,3D 

2 

<  K,(l/cj.   +  l^'.l^j^  )  ,  where  K,  depends  only  on 
—  6     *      1  2+a  6 

a,Yf<5f  and  K„ .   Using  the  basic  estimates  (5.23)  and  (5.24), 
we  then  have  that  the  functions  C^^fH^)    =   L  (1'^ ,  H^,c^) 
defined  by  solving  (5.15)  and  (5.16)  satisfy 


(5.26)  "^t'o^^  i  K^/c^   , 


2 

2"  2+a  -  "7'"' 


(5.27)  >H.I,^^  <  K^/c^   , 


2 
'2' 1+a  -  "7^"^ 


with  K  depending  on  a,y,6,    and  K   ,  which  establishes 

2 

Lemma   A  with  K    =  K_/6 . 

Lemma  A  shows  that  the  functions  4-^"'  and  H^"'  can 
indeed  be  generated  for  n  =  1,2,...  .  In  order  to  show 
convergence,  we  have 


LEMMA  B.   There   is  a  constant  Kp  doponding  only  on 
(x,y,&,    and  K    such  that  for   c^  >  K^  ,  chc      •  - 
L(',«,c^)  defined  on  B.^,-  i)  ^^  More 
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specifically,  if  ('''2'H2)  =  L(T^,H^,c^)  and 
(T^,H^)  -  L(^^,U^,c^) ,    we  have 


"^2-  ^"2-Ha-^  ""2-  «4"l+a  ^  ^  ("  ^'^s"  2+a^"  "I'^B  "  l+a^ 

where  9  <   1.   Thus  the  iterates  T     and  H^"^  form  Cauchy 
sequences  in  the  complete  spaces  C    (D)  and  C    (D) . 


To  establish  Lemma  B  we  consider  the  expressions 


(5.28) 


(5.29) 


A{H2-H^)  =  0 

H2(e^'^)  -  H^le^*^)  =  N[4'2,H^,c^]  -  N[T^,H3,c^] 


In  the  next  section  we  see  that 


llM[4'^,H^,c^]  -  M[^'3,H3,c^]ll^ 


<_    (V^*'^("^-^3"2+a^  "»l-«3"l  +  a)' 


nN[4'2,H3_,cJ  -  N[H'^,H3,cJl^^^^gj3 

lS^"^2-^"2+a^  ""r«3"l+a/'^*^)  ' 

where  Kg  dpends  on  a,Y,5,  and  K  .   Applying  the  basic 
estimates  (5.23)  and  (5.24)  to  equations  (5.28)  and  (5.29), 
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we  have 

2 


"'^2-^"2-.a  1  Ko/-*  H»V^3'2.a^  '"r^s'l+J 


"2-"4"l+a  i^l0^'^2-^'2+a  ^    '  "I'^s' 1+a/^*^)  ' 


which  together  yield  the  statement  of  Lemma  B  with 
Kg^  =  K^q(1  +  3K^q)  and  8  =  Kg^/c^^. 

The  Cauchy  sequences  of  iterates  H'^"'  and  H^"'  there- 
fore converge   to  functions  "f  G  C_   (D)  and  H  G  C,   (D) 
which  must  satisfy  (4',H)  =  L(H',H,c^)  if  c*  >  K_  .   We 
note  that  since  L  is  a  contraction,   f  and  H  are  the 
only  solutions  of  (5.16)  and  (5.17)  with  '  4*1 -_^     "  ^2 
and  'Hl,^  <_   1.    Moreover,  the  expressions  (5.26)  and  (5.27) 
show  that  the  solution  satisfies 

Recalling  that  4*  and  H  are  perturbation  quantities  represent- 
ing the  difference  between  the  compressible  and  incompressible 
solutions  for  a  given  Q(s),  we  see  that  the  compressible 
solution  indeed  tends  to  the  corresponding  incomorcssible 
solution  as  the  critical  speed  c^     -   ®.   This  race,  Logecner 
with  the  explicit  solution   available  in  the  incompressible 
case,   is  the  underlying  basis  of  the  above  convergence 
proof . 
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3 .    Inequalities  for  the  Convergence  Theorem 

In  this  section  we  consider  in  more  detail  the 
inhomogeneous  terms  M[*l',H,c^]  and  N['i',H  ,c^]  appearing 
in  equations  (5.17)  and  (5.18)  and  indicate  how  the 
estimates  mentioned  in  the  discussions  of  Lemmas  A  and  B 
are  derived. 

A  calculation  shows  that  the  inhomogeneous  term 
M[T,H,c^]  of  (5.17)  has  the  form 

^^^i'^.'^C.^.'"5.'^°^l^olc.^ 

(5.28)  M[Y,H,c^]  = ^^J 


2  Y  +  1 ,„  I  2      „„ 
c^p  '   I F- I   exp  2H 

where  E,  -  ^,  C^  =  1/  and  T  is  a  third  degree  polynomial 
in  its  arguments  with  coefficients  depending  only  on  the 
circulation  r.   The  term  N[H',H,c^],  takes  the  form 


(5.29)   N[4^,H,c^]   =   log 


-  log  p(e-"^)-log[Q($(oj))/Q(-rw/27i)] 


Here  the  density  p  can  be  defined  by  Bernoulli's  law  (5.12) 


to  be  a  function  p  =  R(q  /c^),  where  q   =  ('4;^-  +  i|j^)/|f 


"2       7  ~2       2      2    ,    , 2 

valid  for  0  <^  q   £  2K,c^  ,  with  R(0)  =1.   R  is  the 


subsonic  branch  of  the  multiple-valued  function  giving 
p  in  terms  of  the  gradient  of  the  stream  function.   The 
constant  K^  depends  on  y,       2K^  =  [2/ ( y  +  l)  ]  ^'^  ^"^""""^  .   The 
only  information  about  R  that  we   need  is  that  for 
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~2  2 

^  1  ^1^*  '  there  is  a  constant  K„  depending  on  y  such 


that  1  >  R  >  K 


-1 


>  0  and  |r' I , |R" I  <  K. 


Recalling  the 


'2  "    '"    '  '  '"    '    -      2 

expressions    (5.15)    and    (5.16)    giving    V    and   H    in   terms 

of   i)   and    f ' ,    we   have   that 


(5.30)       q^ 


F    I    exp   2H 


ly  lU^-^ 


■2tt 


(?4'^+n4'^) 


+    \^\\^l    +    ^J''    ) 


The  term   $(aj)  appearing  in  the  expression  (5.28) 
for  N[y,H,c^]  is  written  in  the  form 


(5.31)   <I>(u))  =  (r/c) 


b) 

[             1 

r    .    9T(e^'')' 
2tt    ""    ar 

0  p(^     ) 

do) 


rather  than  (5.14),  where  the  constant  c  is  given  by 


(5.32) 


2-n 

f 


c  =  - 


P(e   ) 


_£_        9H'(e^'^) 
2Tr  "*"  3r 


do) 


The   factor  c  is  introduced  to  make  sure  <l>  (u)+2tt) -ij)  (u))=  -r, 
so  that  Q(<J'(u)))  is  2ir-periodic  and  smooth. 

We  first  describe  the  inequalities  used  in  the  proof 
of  Lemma  A.   Since  the  expressions  (5.28),  (5.29),  (5.30), 
and  (5.31)  are  rather  complicated,  we  do  not  attempt  to 
present  all  the  details.   v;e  have  c: 

be  smooth  enough      at  nothing         'histica;      in 
the  mean  value  theorem  is  needed. 
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We  assume  (T  ,H)  g  B  ,  ^  ,_  ,  ,  .   We  claim  that  if  c^.  is 

(6/ Z , L)  * 

large  enough,  M[4',H,c^]  e  C^^(D)   with  H  M  [  T  ,H  ,c^]  H  ^  ^K^/c^^, 

and  N[T,H,c^]  e  C^^^(D)  with  N  N  [T,H,c^]  "  ^^^^^  j^  _< 

<■   K  (l/c^   +  'I'^llo,  )•   In  the  following  expressions,  K. 

will  denote  constants  depending  only  on    a,6,Y,  and  K  . 

~2 
Consideration  of  the  expression  (5.30)  for  q   shows 

that  q   e  c,^  (D)  with  ^11.,   <  K  '    Recalling  the 
^      1+a  ^   l+a  —   9 

~2   2 
properties  of  the  function  p  =  R(q  /c^)   defined  by  (5.12), 

we  see  that   p  e  C^_|_^(D)   with  "  p"  ^^^^  1  ^{q    >    provided 

0  0  0 

that  we  have  chosen   c^  >_  K^/K,  .   This  choice  keeps  q  /c^ 
on  the  subsonic  branch  of  the  density-stream  function 
relation.   We  then  see  from  (5.28)  that  M[H',H,c^]  e  C^  (D) 


and  we  obtain  II  M  [T  ,  H,  c*]  II   <  K,,/c^ 


a 
•  ._  2 
a  -  "11' 


We  next  observe  that  each  of  the  three  terms  on  the 

right  hand  side  of  the  expression  (5.29)  for  N[*i',H,Cjt]  are 

in  C, ,  (9D) .  The   first  term  is  well  behaved  since  we  have 
l+a 

I  r|  >  2tt5  and  "*l'''2+a  -  ^^'^'    ^^^^^'^    I  (2TT/r)  (9f/9r)  (e^*^)  \    ^  ^    , 

and  its  norm  is  bounded  by  a  constant  times  H'i'il^,  .   The 

■'  2+a 

second  term    log  p(e   )  is  also  well   behaved  since  p  is 
bounded  away  from  zero,  and  we  can  estimate 

lllog  P(e^")«,^^^9^  1K^2/^*'- 

2 
The  desired  factor  1/c^   is  essentially  due  to  the  fact  that 

log  p(e^'^)  =  log  R  (q^  (e^''')  (c  .  ^)  -  log   R(0) 


~2  ,  io). 

=  q    (e  ) 

2 
c  + 


0 
68 


R'  (tq^/c^^) 

Z2 2—  ^^ 

R(tq^/c/) 


by  the  mean  value  theorem. 

The  last  term  in  (5.2a)  can  be  estimated  by 


(5.31)  Hog  Q(<l>(a)))-log  0  (-rw/27r )  II  j^_^^  ^^  ^^  <   K^3(l/c^  +  <  4^1  3  +  ^ 


This  inequality  is  more  complicated  and  we  sketch  it  as 
follows.   Using  the  fact  that  Q   is  three  times  continuously 
dif f erentiable  one  can  easily  obtain 


niog    Of'Kco))    -    log   Q  (-rco/2TTj  II 


l+a,3D 


^K^^tH^)    +    ra)/2Trl^^^^g^ 


We   then   express    ^Coj)    +    Tui/2v    in   the    form 

r+  c 


0) 

f 


*(U))       +      r(jj/2TT      = 


CO 

-1 


1-p 


_2Tr    *  3rJ 


r_      9_^ 

2tt        3r 


d(jj 


fa) 


^   +    'trrrl     doj    -     I     ^-p   '^'^ 


0  0 

and  estimate  the  three  expressions  on  the  right  in  terms 
of  r+c,  p-1,  and  y,  respectively.  The  factor  r+c  can  be 
written 


2it 

r 


r+c  =  - 

We  again  ; ^  : 
we  may  obtain 


27T 

f 


tl' 


0 


1/c^   from  the  expression  o-l,  and 


m.)    +  r./2nl^^^^^^  __  K,5ll/cf  +  l.l^,^. 
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and  (5.31)  follows.   We  therefore  have  an  inequality 


2 

as  stated  in  Lemma  A,  provided  c^  >_   K'/K,  . 

We  now  consider  Lemma  B.   We  wish  to  verify  that  if 
(H',,H,),  (^2/^2)  ^  ^(6/2  1^  ^^'^   ^*    ^^    large  enough,  we 
have 


(5.32)  «M[H'^,H^,c^]  -  M['^2'"2'^*^  "a 

1  (V-*')("V^3"2+a  ^  "V"3"l.a: 


(5.33)  llN[*^,H^,c^]  -  N[t2'"2'^*^  "l+a,9D 

^-S^'\-'2'2^a    ^  ""l-«3"l  +  a/^*'^ 


Consider  the  first  inequality.   The  form  of  (5.28)  shows 
that,  with  an  obvious  notation,  we  may  write 


^19  r„ .  ,  a 


1    2  a  —    2  "-   1   2  2+a     1   2  1+a      y+l     Y  +  1  ol 
^*  Pi      P2 

+  llexp(-2H^)  -  exp(-2H2)n^)  • 

It  is  easily  seen  that  the  last  term  is  dominated  by  some 

constant  times  H  H^  -  H„ll  ,  .  .   Examination  of  the  expression 

1    2  1+a  '^ 

~2 
(5.30)  for  q   shows  that  we  also  have 
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and  using  this  result  with  p  =  R(q^/c^^)  then  gives  the 
first  inequality  (5.32). 

To  obtain  the  estimate  (5.33)  we  write 


"Nl-^2°l  +  a,9D  ^  "l°gU+(2TT/     ,/ar  (e^^)  ] 


-  log(l+(27T/r)  94'2/3r  (e^ 


+  Uog  p^(e^'^)-  logP2(e^")li^,,9i, 

+  Blog  Q(Cj^(a)))  -  log  Q  (*2  ^"'^  ^  '  l+a,8  D 

and  estimate  each  of  the  terms  on  the  right  separately. 
The  last  expression  is  the  most  complicated,  and  can  be 
treated  in  the  same  fashion  as  was  the  term 
Hog  of*  (to))  -  log  Q  (-ra)/2TT )  I  ,  ^   ^  n  in  Lemma  A. 

X  +  Ct  ,  o  U 

straightforward  calculations  then  show  that  an  estimate 
of  the  form  (5.33)  holds,  and  the  statements  of  Lem: 
follow.   The  map  ('^2'^^2^    ^  L(Tj^,H^,r^         ntraction 
and  has  a  unique  fixed  point  that  can  : 
iteration  . 

There  remains  a  technii     )int  due      .."•  introduction 
of  the  factor  c    in  the  expression   (5.30)  for   s  (u)  . 
ire  the  fix      int  (y,H)  of  the  mapping  to  pT 
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solutions  <|j(C)  and  F  ( rj  =  -i,'^    £'(<;)   to  the  equations  (5.11) 
and  (5.13),  where  (5.14)  rather  than  (5.30)  is  the  expres- 
sion for  <t  (uj)  .   Therefore  we  should  check  that  for  the 
fixed  point  (*i',H)  we  have 


2tt 


c   =  - 


1  |r_  _j_  3_t 

p  I  2tt    8  r 


dco  =  -  r 


To  see  this,  note  that  the  corresponding  function 
(J;(C)  =  (r/2TT)  log  I  ^  I  +  *i'(^)   by  construction  satisfies 
the  equation 


(^^/p)^  +  (*^/p)^ 


with  ^  {r,)    '^   r/2Tr  log  |^|   as   ^  ^-  0 ,  whether  or  not  c  =  -  r 
By  Green's  theorem  we  therefore  have 


2tt 


2Tr 


c    = 


P(e      ) 


v-^    (e      )    duj 
3  r 


=    lim 


P  (ee      ) 


3  \b  ,      10),       J 
;r-^(ee      )  e    doj 
3  r 


P(0) 


The  expression  (5.30)  for  q   shows  that 
p(0)  =  R(q^(0)/c^^)  =1,  so  c  =  -  r  as  desired.  This 
completes  the  convergence  proof  for  the  subsonic  inverse 
problem . 
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VI.   DESCRIPTION  OF  THE  CODE 

In  this  chapter  we  explain  how  to  modify  the  input 
speed  distribution  in  order  to  obtain  airfoils  with  given 
specifications.   We  also  describe  the  other  input  para- 
meters necessary  for  the  operation  of  the  design  mode. 

1 .    Achieving  Design  Specifications 

We  refer  again  to  the  speed  distribution  illustrated 

in  Figure  2.   The  form  of  the  upper  surface  distribution 

determines  the  amount  of  wave  drag   experienced  by  the 

airfoil  and  the  growth  of  the  boundary  layer  along  the 

upper  surface.   We  suggest  using   a  distribution  with 

constant  supersonic  values  over  the  first  portion  of  the 

profile,  followed  hy    decreasing   values  along  the  rest 

of  the  surface  in  accordance  with  the  Stratford  criterion 

C    'V.  0.003   near  the  trailing  edge, 
sep 

The  value  of  c^  should  be  determined  so  that  the 
supersonic  zone  has  the  proper  size,  as  discussed  in 
Section  4.1. 

The  lift  of  the  airfoil  is  related  to  the  area  between 
the  upper  and  1  surfac  .  ed  distributions.  By  varying 
ti   •         ice  distribution,  the  lift  can  be  distrib-*^  ' 
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as  desired  over  the  airfoil.   The  free  stream  Mach  number 
is  also  affected  by  changes  in  the  speed  distribution. 
For  example,  increasing  the  magnitude  of  the  velocities 
along  the  lower  surface  will  generally  decrease  the  lift 
and  increase  M  . 

oo 

The  thickness-to-chord  ratio  of  the  wing  section   can 
be  adjusted  by  varying  the  slope  of  the  speed  distribution 
near  the  stagnation  point  Q  =  0.   Increasing  the  slope 
will  result  in  a  thinner  profile  with  little  change  in 
the  lift  of  the  airfoil.   The  free  stream  Mach  number  also 
increases  as  the  thickness-to-chord  ratio  is  decreased. 
The  vertical  separation  between  the  upper  and  lower  surfaces 
is  decreased  as  the  slope  is  increased. 

The  relative  position  of  the  upper  and  lower  surfaces 
at  the  trailing  edge  can  be  adjusted  by  changing  the 
velocity  distribution  near  the  tail.   The  vertical  separa- 
tion is  increased  by  raising  the  prescribed   speed  at  the 
tail  on  both  the  upper  and  lower  surfaces.   This  will  not 
have  a  strong  effect  on  the  thickness-to-chord  ratio.  For 
most  purposes  the  vertical  separation  should  be  around 
0.015  so  that  after  removing  the  boundary  layer  a  gap  of 
around  0.007  remains.   The  horizontal  separation  can  be 
adjusted  by  changing  the  amount  of  arc  length  near  the 
tail . 

Finally,  we  mention  that  a  decrease  in  the  prescribed 
critical  speed  c^  will  generally  increase  the  size  of  the 
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supersonic  zone,  increase  the  free  stream  Mach  nximber, 
decrease  the  thickness-to-chord  ratio,  and  increase 
the  vertical  separation  at  the  trailing  edge.   It  should 
have  little  effect  on  the  lift  or  horizontal  separation 
at  the  tail. 

When  designing  an  airfoil  with  given  specifications 
it  is  advisable  to  proceed  in  stages  by  modifying  the 
pressure  distribution  in  the  appropriate  areas  one  at  a 
time   so  that  the  effects  of  each  change  can  be  isolated, 
When  beginning  a  new  design  it  is  useful  to  make  the 
initial  runs  on  a  coarse  mesh  of  40x7  or  80x15   points, 
where  results  can  be  obtained  in  one  or  two  minutes 
on  the  CDC  6600.   The  finer  mesh  can  then  be  used  to 
make  minor  adjustments  to  the  pressure  distribution  and 
obtain  accurate  resolution  for  the  final  runs. 
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2 .    Operation  of  The  Code 

We  have  included  the  design  modification  to  program  H 
in  such  a  way  that  when  design  parameters  are  not  explicitly 
specified,  they  assume  default  values  that  do  not  affect 
the  operation  of  the  analysis  routine.   The  description 
of  the  operation  of  the  analysis  code  given  in  [4]  therefore 
remains  in  effect  for  the  new  version  also.   We  assume 
the  user  is  familiar  with  this  description  of  the  analysis 
routine . 

For  operation  of  the  design  mode,  the  input  speed 
distribution  should  be  provided  on  TAPE6  in  the  format 
given  in  Table  7.1,  with  negative  values  along  the  lower 
surface  followed  by  positive  values  on  the  upper  surface, 
as  in  Figure  3.   The  arc  length   s   must  be  monotonically 
increasing . 

Table  7.2  contains  the  other  input  parameters  necessary 
for  operation  in  the  design  mode.   These  parameters  have 
default  values  as  indicated  and  can  also  be  specified  using 
standard  namelist   conventions.   We  provide  some  sample 
commands  below  to  illustrate  their  use. 

The  parameter  NDES  specifies  the  number  of  overall 
iterations  to  be  performed  in   the  design  mode.   Each  itera- 
tion consists  of  NS  cycles  of  flow  computations,  followed 
by  a  new  mapping  to  the  unit  circle  as  described  in  Sec- 
tion 3.3.   Since  the  time  required    to  calculate  a  new 
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mapping  function  is  small  compared  to  the  time  required 
to  find  the  flow  past  a  profile,  we  use  relatively  few 
cycles  of  flow  computation  between  each  mapping.   We 
generally  specify  NS  =  10,   NFAST  =  0,  and  NREXLAX  =  1, 
so  that   10  relaxation  sweeps  are  used  between  each 
mapping.    The  results  we  have  presented  have  all  been 
produced  with  this  choice. 

The  parameter  TSTEP  is  a  relaxation  factor  for  the 
Fourier   coefficients  determining  the  mapping  function. 
The  rate  of  convergence  of  the  overall  iteration  procedure 
depends  on  the  value  of  TSTEP.   If  TSTEP  is  too  large,  the 
coordinates  of  the  profile  may  oscillate  and  the  scheme 
will  converge  slowly  or  not  at  all.   When  a  small  amount 
of  artificial  viscosity  is  being  used  in  the  flow  equations, 
it  is  sometimes  necessary  to  use  smaller   values   of  TSTEP 
to  avoid  abrupt  changes  in  the  successive  profiles  that 
may  cause  undesirable  shock  formation.   We  have  TSTEP  "^   0.2 
for  the  design  procedure  outlined  in  Section  4.1. 

An  example  of  the  control  cards  and  data  cards  used 
to  design  an  airfoil  on  the  CIMS  CDC  6600  is  given  below. 
To  improve  turnaround   time  we  have  found  it  convenient  to 
break  up  the  job  into  several  shorter  jobs  rather  than  one 
longer  job. 

The  relevant  control  cards  have  the  form 
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GETPF(TAPE6=SPEED)    Speed  contains  Q(s)  as  in  Table  7.1 


GETPF(LGO=HDES) 


LGO. 

SAVE (TAPE3-C0MP1) 


SAVE (TAPE4=C00RD1) 


HDES  is  a  compiled  version  of  the 
modified  canalysis  code  H. 

TapeS   contains  data  to  continue 

the  computation  if  desired. 

Tape4   contains  the  coordinates 

of  the  resulting  airfoil  in  FSYM=1 . 0 

format,  and  the  final  pressure 

distribution . 


For  an  initial  run  on  a  crude  grid,  the  first  card 
used  as  input  to  the  program  could  be 

[  $P  RN  =  0.,  ALP=0.,  NDES=1  $  ] 

NDES  =  1  puts  the  code  in  the  design  mode.   The  specified 
angle  of  attack  with  respect  to  the  x  and  y  axis  must  also 
be  given  on  this  card.   The  Reynolds  number  is  zero  for  the 
inviscid  flow  calculations.   The  speed  distribution  is  read 
from  TAPE6  and  a  plot   of  Q(s)  is  provided.   (If  CSTAR  <  0, 
the  program  will  then  terminate.) 
The  next  cards  are 

[  $P  NS=-1,  ITYP=1  $  ] 

The  grid  is  coarsened  from  160x30  to  80x15. 

[  $P  NS=-1,  ITYP=1  $  ] 


The  gird  is  coarsened  from  80^75  to  40x7. 

[  $P  NDES=20,  NS=10,  NFAST=0, 
NRELAX=1,  EPS1=0.5,  TSTEP=0.2, 
REM=0.5,  ITYP=4,  XP=1.0, 
KDES=10  ] 

Twenty  design  cycles  are  performed.   After  each  increment 
of  10  (KDES)  cycles,  the  coordinates  of  the  resulting  air- 
foil, the  Mach  number  diagram,  and  a  Calcomp   plot  of 
the  flow  are  produced.   XP=1.   causes  the  desired  pressure 
distribution  to  be  plotted  on  the  graph  also;  if  XP=0 . 
it  will  not  appear.   The  results  of  this  computation  are 
automatically  saved  on  TAPE3  after  NDES  cycles. 

[  $P  NS=1,  ITYP=-1  $  ] 

The  grid  is  refined  from  40x7  to  80x15. 

[  $P  NDES=20,  NS=10,  ITYP=4  ] 

Twenty  more  design  runs  are  performed   on  the  new  grid,  and 
the  results  rewritten  on  TAPE3. 

(  $P  ITYP=0,  XP=0.   ] 

The  computation  stops.   XP=0.  causes  the  airfoil  coordinates 
to  be  written   on  TAPE4.   This  run  takes  about  '^'^    'T  ~cc- 
onds  execution  time. 

If  the  airfoil  produced  by  this  run  does  not  meet  the 
desired  design   specif  icT^ '--': ,  0(s)  is  chaiujiu  and  the  run 
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is  repeated.   If  the  airfoil  is  satisfactory,  the  run  may  be 
continued  on  a  finer  mesh  as  follows. 

GETPF (TAPES  =  COMPl) 
GETPF(LOG  =  HDES) 
LGO. 

SAVE (TAPE 3  =  C0MP2) 
SAVE (TAPE 4  =  COORD 2) 
The  data   cards  are  then 

[  $P  NDES  =  1,  RN  =  0.,  ALP  =  0.  $] 
[  $P  NS  =  -1,  ITYP  =  1  $  ] 

Coarsen  mesh  from  160  30  to  80  15. 

[  $P  NS  =  0,  ITYP  =  1  $  ] 

Read   in  data  stored  on  TAPE3  (stored  with  MxN  =  80x15) 
to  continue  the   computation. 

[  $P  NS=1,  ITYP=  -1  $  ] 

[  $P  NDES  =  10,  NS  =  10,  ESPl  =1.,  ITYP  -  4  $  ] 

[  $P  ITYP  -  0,  XP  =  0.  $  ] 

This  run  takes  about  130  CP  seconds  execution  time. 
The  next  run  might  have 

[  $P  NDES  =  1,  RN  =  0.,  ALP  =  0.  $  ] 
[  $P  NS  =  0,  ITYP  =  1  ] 

[  $P  NDES  =  10,  NS  =  10,  EPSl  =  0.75,  ITYP  =  4  $  ] 
[  $P  ITYP  =  0,  XP  =  0.  $  ]  , 
and  so  on. 


80 


If  it  is  desired  to  do  the  design  in  a  single  run, 
the  data  cards  might  read: 

[  $P  NDES  =  1,  RN  =  0.,  ALP  =  0.  $  ] 

[  $P  NS  =  -1,  ITYP  =  1  ] 

[  $P  NS   =  -1,  ITYP  =  1  ] 

[  $P  NDES  =  20,  NS  =  10,  NFAST  =  0, 
NRELAX  =  1,  EPSl  =  0.5,  TSTEP  =  0.2, 
REM  =  0.5,  ITYP  =  4,  KDES  =  10,  XP  =  1.  $  ] 

[  $P  NS  =  1,  ITYP  -  -1  $  ] 

[  $P  NDES  =  20,  NS  -  10,  ITYP  =  4  $  ] 

[  $P  NS  =  1,  ITYP  =  -1  $  ] 

[  $P  NDES  =  10,  NS  =  10,  EPSl  =1.0,  ITYP  =  4  $  ] 

[  $P  NDES  =  10,  NS  =  10,  EPSl  =  0.75,  ITYP  =  4  $  ] 

[  $P  NDES  =  10,  NS  =  10,  EPSl  =  0.50,  ITYP  =  4  $  ] 

[  $P  ITYP  =  0,  XP  =  0.  1 

This  run  takes  about  520  CP  seconds  execution  time  on  the 
CIMS  CDC  6600. 

For  the  present  version  of  the  code,  a  separate  run 
is  required  to  perform  a  boundary  layer  correction  for 
the  airfoil  designed  with  inviscid  theory.   Assuming  the 
coordinates  and  pressure  distribution   from  the  design  run 
were  stored  on  TAPE4  =  COORDl ,  the  control  cards  for  a 
boundary  layer  correction  would  be 
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GETPF(TAPE3  =  COORDl) 

GETPF(LGO  =  HDES) 

LGO. 

SAVE (TAPE  3  =  COORD 2) 

The  required  data  cards  have  the  form 

[  $P  RN  =  20.E06,  XP  =  -1.,  PCH  =  0.07,  PLTSZ=8  0  $  ] 

[  $P  ITYP  ==  0,  XP  =  0.  ] 
C00RD2  then  contains  the  corrected  coordinates  in  FSYM  =  2.0 

format.    A  plot  of  the  profile  is  also  generated  by  this 

run. 

Finally,  we  mention  that  the  parameter  XOUT  can  be 

used  to   obtain  speed  distributions  for  use  in  the  design 

mode .   The  command 

[  $P  XOUT  =  1.0  ] 

will  cause  the  speed  distribution  currently  in  memory  to  be 
written  on  TAPES  in  the  format  shown  in  Table  7.1. 
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TABLE  7.1.   TAPE 6  INPUT  SPEED  DISTRIBUTION  Q(s) 


^\.  Cols. 

Cards      "^^  .,. 

1-10 

11-20 

21-40 

1 

XIN 

CSTAR 

2 

-  Q|   at   tail 

initial  value  of 
arclength 

3 

speed   along   profile 

increasing  values 
of  arclength 

• 
• 

XIN  +  1 

Q|   at   tail 

final  value  of 
arclength 
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TABLE  7.2.   DESIGN  PARAMETERS 
Glossary  of  Input  Parameters  for  Design  Mode 


Parameter  Default 


CSTAR 

KDES 
EPSl 
NDES 
PLTSZ 

QPL 
QPU 
REM 

TSTEP 
XOUT 


XIN 


100 


10 


-  1 


50 


85 


95 


.2 


0. 


None 


Real 


Description 
Critical  speed  c^^  •   If  c^  <  0,  the 


program  plots  the  prescribed  speed  distri- 
bution and  halts. 

Integer.   Graphs  and  flow  printout  are 
generated  every  KDES  design  cycles. 
Real.   Artificial  viscosity  coefficient  e, 
appearing  in  the  expression  (3.16). 
Integer.   Niimber  of  design  iterations 
to  be  performed. 

Real.   Length  in  inches  of  profile  in 
graph  generated  when  boundary  layer 
correction  is  performed. 
Real.   Lower  limit  Mq  of  the  cutoff 
function  V(M)  in  formula  (3.16) 
Real.   Upper  limit  M^  of  the  cutoff 
function  V(M)  in  formula  (3.16) 
Real .   Relaxation  parameter  for  determina- 
tion of  M  . 

00 

Real.   Relaxation  parameter  for  coeffici- 
ents of  mapping   function. 
Real.   XOUT  =  1  causes  the  current 
velocity  distribution  to  be  written 
on   TAPE3  in  the  format  of  Table  7.1. 
The  computation  is  then  terminated. 
Real.   Number  of  points  used  in  prescribing 
input  speed  distribution  Q(s). 
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Figure    3 
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Figure    6 
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Figure    7 
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Figure    12 
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Figure    14 


-.8 


.4  ._ 


.0 


.4  ._ 


.8 


1.2_. 


VISCOUS  DESIGN 
-    RRT.    .- . 
i^\JT    CP 


M«N-i  60*30  NCY-    ^"'^ 

M-.7  75        flLPr  0.00        a 

T/f-  .: : ,    jL.  ^-02    DPH' 

103 


5i-    .u50 
CD-. 0040 


Figure    15 


/^' 


/ 


) 


v,_ 


■^.. 
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.^     u 


l04 


LISTING  GF  COUE 


C 

c 


2 
3 
ti 

5 
6 


PROG 

lOUTP 

CUM:1 

CUMM 

1  ,RP 

2  ,SI 

3  >  AN 
li     ,  RP 

ClMM 
1  /  XA 
»C^ 
*  IK 
,Nk 
*SC 
»IN 
DIME 
EQUI 
LSTt 
EXTt 

NAME 

1  M 

2  X1G 

3  ,EP 
DATA 

1 
uAT  A 

1  ,  S 
AA(1 
INDC 
Nb  W  = 
NFAS 
NREL 
ThES 
NAME 
CALL 
M<,  ■ 
KbWl 
WKir 
READ 
IF  ( 


RAM 
LT,  T 
CN/F 
ON  P 
(31  ) 
(  lo2 
GOLD 
A(  31 
UN  / 
*  YA, 

^  JK, 

rs>L 

ALJJ 
C,QF 
NSIQ 
VALE 
kR  I 
FNAL 
LIN-A 
LIST 

N,  XP 

bi»C 

GAM 

\5/ 
t /6/ 
)  » 

i 

T"l 
AX-b 
fc  TW 
FR  (5 

SYS 

N<. 
NO  N 
t  (N 

CL  .N 


H(  I.NP 
APEiJ 
L/FLU 
Hl(16 
,t-  PP{ 
)^  PHI 
(162) 
)  ,  RP5 
A/  PI 
TL>DT 
C6»C7 
II*  IT 
L>  I^L 
,  N6#G 
AC>GA 
N  COM 
NLF  ( 
S     THF 

LSTE 
NSI** 

/P/ 
rC^NP 
#XSEP 
STAR, 
M  A  /  1 . 

3/     » 


UT  « 
=  IN 
XT^, 
2,31 
31), 
Rdo 
,XGL 
(31  ) 
,TP, 
,DR> 
*btT 
YP,M 
SEP, 
ANf.A 
M,KD 
C(67 
CQMC 
SLtJ 
RR 

ALP, 
TS,N 
,  NRE 
NOP  S 
^/  , 
I'D 
NAf.  E 


6fa,0JTPUT  = 
P0T,TAPE6 ) 
CD^,CUW, INLC 
),FP( io2, 3i  ) 
R(31),kS( 31) 
2 ),  aC ( loZ  ),  Y 
1(1^2), YJLL( 


5GC, TAPES 


too,  TAPt^  =  ^C(J,  I  APE2  = 


SAO, EM, 
DcLTH,D 
,  l?t:TA,F 
DDE, IS, 
M  ^  ,  N  c  << , 
,NaPT,C 
LS,FLTS 
)  ,CLA(2 
(1),PI) 
RCUTINE 


ALP,F 

cLri,  U 

SYM,X 
KFCN 
EPSl, 
JTAR, 
Z,uPL 
)  ,  NAM 
,  (  CLX 
To    P 


BETA, oCP, CL, 
RN,NS,NS1,PC 
LAX,.N|F  AST 
, REh,jEP,TST 
iT/0./  ,  XM 
EL/. 125/  ,  D 
kR/o'-J/     ,     ul 


,A(3i),o(3i),C(31),D(31),E(31) 
,Fi(31),AA(lo2),bb(162),C0(lt2) 
C(io2),FM(l62),ARCL(lt2),DSUM(lt2) 
lt2),aKLaLu{162),0ELGLC(162) 

N,PCH,XP,Tv.,CHO,OPHl,CL,RCL,Yh 

A,GCN,DSN,RA^,EPSlL*CCRIT#Ci,C2 

SEP,SbPM,TTLE(^),M,N,MM,NN, NSP 

CY»NRN,NG,IJIM,r,2,N3,N^,NT,iAX 

NlES*  aLEN,SCaL(j1 

RtM,OtP,OlNF>TSTEP,XUGT 

,  wPU 

EFR  (6) 

,CLA(1  )  )  ,  ( ALPX,CLA (2)  ) 

RCCtSS  A  NAMELIST  cRRUR 


EM,FSYM,GAMMA,IS»ITYP,iZ,KP»LL»L:>E?, 
h,KiJCP,hCL,KDEL,RFLJ,RN,3tPh,:)r, 

tP,xauT,KCES>PLTSZ*wfL,uPO 
DN/.«?5/   ,  RbCP/.lO/  ,  RFLG/1.^/  , 
CP/.^/  f  NSl/20/  ,  Nj/1/  ,  ^P/l/ 
,  D2,SL/3*C./  ,  vPl/.^/  ,xPi-/i./ 


99999. 


J    CAPOS    TRANSMIT    TC    THE     SYSTEM    THE     RtCOVfci^Y    ADOKESS 
)     -    LaCF(LSTtKR) 
Tl MC( bbf NANEFk ) 

<» 

2,180  ) 

.P) 

t.lOO.)    MODE    «    Q 


105 


IF  (  1Z.GE.8D)  NA  =  N2 
IF  (NS.EL.O)  Gu  TO  30 
CALL  PESTPT 
ClX  »  CL 
ALPX=  RAD*ALP 
GG  TG  140 
10  WRITE  (N2,i80) 
Nbw  =  l 

ALP  =  100. 
CL  =  100. 
****NON-ANS I**** 
KE  AD  (N5»  P  ) 
LN  =  RN*1  .E-b  +  .t, 
TXT  =  3HALP 

IF     (MGDE.bQ.O)     TXT    =     3H    CL 
CALL    StCiJND(TIME  ) 
WkITE(N2,200)     Er,TXT,CLA(MODh+l),LN,M,N,NS 

1  RBCP»8ETA,ST,PCH,SEPi^,XSEP,NPTS*IS>LL>iZ 

2  ,£PS1»N0ES»REM>NFAST*NRELAX»ITYP,FSYM>TSTEP,DEP 
IF     ( AeS(XGUT)  .Gl .  .b)     GJ    13    7727 

GQ  TG  7726 


TiME>RFLO»RCL.kL;EL» 


7727 


7728 


20 


114 


?b 


CALL  QUTPT 

CALL  PLOT (0.*0. ^999) 
STOP 

CGNTINUE 

SELECT  OUTPUT  TAPE 
N4  =  MA 

IF  (lZ.Gt.80)  N4  =  N2 
C2  »  .5*( GAMMA-1 . ) 
C7  =  GAMhA/(3AMrA-l . ) 
IF  (ALP. EG. 100. )  Gu  TJ 
ALP  HAS  BEEN  INPUTTELj 
0 


20 

KEEP 


IT  FIXED 


25 

KEEP 


NCY  = 

MODE  »  1 

ALPX  =  ALP 

ALP  =  ALPX/RAD 

IF  (CL.EC.IOO. )  GQ  TG 

CL  HAS  BEEN  INPUTTED, 

NCY  =  0 

MODE  =  0 

YA  =  .5*CL/CHD-DPHI 

DO  114  L  =  1,M 

DO  114  J  =  1,NN 

PHI(L,J)  =  PHKL,  J  )+YA*PhIP(L) 

DPHI  =  .5+CL/CHL 

CLX  =  CL 

CL  »  CLX 

CHANGE  PARAMETERS  wHlCt-l 

EM   =  AMAXKEM,  .1E-4C) 

IF  { EM.NE. EMX )  NCY  =  0 

CI  =  C2+1./ (EM  *tM  ) 

C6  =  C2+EM  *EM 

C4  =  l.+Cb 

C5  =  1./ (C6+C7) 


IT  FIXED 


DEPEND  UN  THE  f'ACH  NUMBER 


106 


c 
c 


QCRI 
BET 
CHEC 
IK  w 
IF  ( 
CALL 
IF  ( 
ktWl 
IF  ( 
WRIT 

1  *DS 

GO  T 

30  READ 

1  »DS 
CALL 
GO  T 
CDMT 
IF  ( 
NS  « 
GU 
IF 
GG 
IF 


40 


70 


99 
IOC 


80 


IC 


141 


14? 

i;>i 


T 
( 
T 
( 

oLj  B 
CALL 
GO  T 
SET 
KD  = 
XPHI 
IF  ( 
XA  ' 
ANGQ 
TXT 
IF  ( 
DG  A 
IF  ( 
IXX 
IXX 
IF  ( 
LC  =» 
DO  1 
IF  ( 
IF  ( 
k^PIT 
LC  « 
CGNT 
lF(r>i 
CALL 
iF(N 
CL  1 
CALL 
CONT 
NE  w« 
NCY 


T  =  ( 

=  SQR 
K  FQk 
ILL  b 
(  ITYP 

COSI 
NS.NE 
ND  N3 
ITYP. 
E(N3) 
UM,GA 
0  140 

(N3) 
UM,GA 

MAP 
0  140 
INUE 
NS.GT 

0 
G  CRU 
ITYP. 
0  140 
ITYP. 
ACK  T 

REME 

0  140 
UP  CO 

1 

1  =  0 
RCL. 
1.-2 
=  -R 

=  3H 
MODE. 
T  MOS 
RN.Lt 
=  M  +  2 
=  IXX 
XC  (  IX 

0 
?C  K 
NOES. 
MQD(  L 

I    (Na 

LC*1 
INUfc 
FAST. 

SWt  E 
RELAX 
42  Lf 

SWEE 
INUE 
U 
=  SCY 


C1+C1)/(GAMMA+1. ) 
T(l.-£h  ♦EM  )-l. 

TERMINATE, R= FRIEVb^  OR  STORE  INSTRUCTIONS 
E  -1  ONLY  IF  rHE'<E  iS  A  NAMLLIST  ERROR 
.FQ.O) .Gk.( IK. EG. -1) )  GO  TO  17u 

.0)  bO  TO  4C 

GT.O  )  GU  TO  30 

COMC*  PHI,  AA,bB,APCOLD*  A,4G0LD,X0LD,  YOLD,UELOLD*k>RS»RI 
MMA,XMGN*RBCP,RFLC,RDEL,BCP,NS1,KP,ST 

COMC»PHI,AA,bB,AkCGLD,ANGaLD,XOLu,YOLO,DELDLCfK,KS,RI 
MMA,XMCN,kbCP,PFLD,RLEL,BCP,NSl,KP>ST 


.0)  GG  TO  70 


DE  GRID  IF  ITYP. GT.O 
GT.O)  CALL  REMESH(-l) 

GT.O)  GO  TO  ^9 
0  FINER  GRID 
SH(1  ) 

NSTANTS  AND  03  CUNFOkKAL  MAPPING 


NE.O.  )  XPHI  1  =  2. +CHL/RCL 

./RFLO 

AD*B3(1) 

CL 

ECO)  TXT  =  3HALP 

1  NS  CYCLES 

.0.)  NSl  '    IOjOoJO 


-1 

X-1  )  .GT.XMON)  Gu  TO  8C 

•  1,NS 

GE.O)  GG  TO  105 

C.t/ft  ).NE  .0)  oJ  T3  10^ 

,210)  TXT 


LE.O)  GO  TC  141 

PI 

.LE.O)  GO  TU  151 

■  1 .  N  R  f  L  A  X 

P 


♦  1 


107 


110 


125 
120 
310 


AL 

CL 
YA 
UR 
IF 
IF 
LC 
IN 
CA 
IN 
AN 
WR 

1  C 
CO 
IF 
IF 
WR 
LC 
FS 
CA 
AN 
IF 
CH 
IF 
CD 
IF 
CA 
IF 
CA 
CA 
LA 
IF 
KG 
GC 
RE 
IT 
WR 

1  , 

i^u  n 

CL 

LN 
XP 
XP 
CA 
NT 
TX 
IF 
IbO  WK 

1  k 

2  :, 

IF 

lU 

GO 

160  IF 


138 


139 


PX  »  R 
X=  2.* 

=  YA* 
ITE  RE 

(NOES 

=  LC  + 
0CD=1 
LL  GTU 
DCC=0 
GO  »  - 
ITE  (N 
Dw»CD4 

A  riOU 

(haD( 

(K.EO 
ITE  (N 

=  LC  + 
YM  =  b 
LL  GTU 
GO  »  - 

(MODE 
ECK  TO 

(  AM  AX 
NTINUE 
(NDFS . 
LL  CYC 

{MQD( 
LL  GTU 
LL  (iAP 
LL  COS 

(KD.E 

=  KD  + 

TO  10 
WIND  N 
YP  =  1 
ITE(N3 
OSUf *G 
YP  =  I 

=  CLX 

=  RN* 
F  =  XP 

=  XP* 
LL  SEC 
PE  =  N 
T  »=  3H 

(MODE 
ITE  (N 
BCP»  EE 
E  P  S  1 ,  N 

(  N  T  P  t 
PE  =  N 

TO  15 

(  ITYP 


AD+ALP 

DPHI*CHD 

XPHII 

ilOUALS  ON  hZ    every  KP  CYCLES 

.GE.O )  GO  TO  110 

K,KP)  .NE.O)  GJ  T'J  110 

1 

PB(Dl,C2,CPl>CiJW>SL»RDEL,PiiCP) 

RAD*BB(1 ) 

2,190)     NCY,YR,YA>Jl,C,2WK,JK,NSP.CLA(2-MUuE  )>  ANGC>CPi* 

NDRY  LAYER  CLRRtcTIuN  EVERY  N31  CYCLES 

K,NSi  )  .NE.O)  GO  TO  1  2  t> 

.NS)  GO  TO  1^0 

2,190) 

1 

f 

t<B(Dl,u2,CPl,dCP,SL,RLEL,RdCP) 

RA0*BB(1) 

.EQ.O)  DPHI  =  .5*CLX/CHL 

SEE  IF  wE  HAVE  SATISFIED  CONVERGENCE  CRITERIA 
1 ( ABS (YR ),m6S( YA) ) .LT.ST)  GO  TC  310 

LE.O)  GU  TO  l^J 
LE 

KCKDES  )  .NE.O)  GO  TO  138 
R&(Dl,D2,CPl,'iCP,SL»FDEL,Kt;CP) 

I 

O.NDEi)  GC  TO  139 

1 

0 


)     COMCPHI,  AA,!iB,ARCOLD>  ANGJLD,XOLC,  YOLD,DELaLU,R,RS,Kl 

AK'1A,  XMGN,RBCP*RFLC,RDEL,BCP,NS1,KP,ST 

AbSCITYP) 

1.E-6+.5 

F*AMINO( 1, IAB3 (M^-N4) ) 

XPF 

OND(T IME) 

ALP 

.EQ.O)  TXT  =  3.H  CL 

TPE,200)    em,txt,cla(mdde  +  i),ln,m,n,ns»time,rflg,kcl»m;el, 

TA,ST,PCH,SEPM,XSEP»NPTS,IS,LL,IZ 

OES*REM,NFAST,NRELaX,ITYP,FSYM,  ISltP,ULP 

.Ei,.N2)    GO    TO     lt5U 

2 

0 

.Gt.2)    CALL    GTJko(D1,D2,CP1,  tCP,  SL»KL)tL>  RtjCP) 


108 


17C 


tMX 

ITYP 

GO  T 

ITYP 

IF  ( 

CALL 

TERM 

Call 

CALL 

FORM 

FCR^^ 

FORM 

3X3 

>3X 

3X 

3X3 

3X, 

£10  FCRM 

1  2X, 

220  FORM 

END 


180 
190 
200 


1 
2 
3 

I* 
b 
b 


=  EM 
=  1 
0  10 

=  ^ 
IK.E 

GTU 
INAT 

PLC 

EX! 
AT  ( 
AT{  b 
AT  ( 
HMS  = 

&hSE 
H1Z  = 

bHi  r 

AT(1 
2HJK 
AT  ( 


w.-i)  WRITE  (N^,220) 

RB(0i*02*CPl*dC^'>iL,t',0EL>RBCP) 

E  PLOT 

T(0.»0.*999) 

T 

7h  READ  P/) 

X>I^»4F12.i>I'+/Ii»It*2FiO.'t»<:FU.3>Fil.t<) 


13/  6H  bPSl  =  Fd.^,  3X6H  NL;ES=I3,3X 
F8.A,7H  NFAST=I3>3X,7HNkELAX=I3»// 


SUBRUUTINt 
CuMMDN  /A/ 
IK  "  -1 
RETURN 
END 


LSTERR 
,>1(  ^  7  )  ^  I K 


bUBR'JUTINE  RESTPT 
COMMON  PHI  (162.31 

1  ,RP(31  )  ,^??{-il), 

2  #SI  (162)>PHlR(lfc 

3  , ANbOLD(162) »xaL 
<t     .KP'.C  31  )  »  RP5(il  ) 

CuMMCN     /A/     PUTP^ 

1  ,XA, YAf TE.DT#DR/ 

2  ,C^,C5»:t*C7/E£I 

3  f  Ik, JK»  iZ,  ITYP»M 
't    *NPTS»LL#  I*L3EP» 

5  ,  SCALOT.  r,6,GAff^A 

6  *  INC*'JFAC»GAM,KD 
SET    UP    CJNSTANTb 
TH     «    PI  ♦?! 

J-AO     •     16G./PI 

ALP     «     ALP/RAO 

IF     (  (N^l  )  .NE.NN.UR. (M*l ) .Nt .rK)     NCY 

M^     ■    M*l 


)»FP(i62,31)^A(31),b(31),C(31)*J(31)/E(31) 

K(31),R3(31)fRI(31)»AA(lfc2)»bB(lt2),CC(lc2) 

2)#)'C(it2)*YC(162)fFM(it)2)#ARCL(lt2)*DSuM(le.2) 

U(ie2)*YQL0(lb2),ARCaLu(io.'),JELLLD(ltc) 

RAu^inALP^KN^PCH^XPfTCCmytOPHi^CL^RCL^rK 

DLLTM,DLLR*KA#DCN,OiN*RA<i,EPSIL/(.CfiiT#Cl#Ci: 

»otTA,FSYM,XSEP*SLPM»TrLE(«t),M,N,hM,NN,r.iP 

L:L»L»I5*Nt-C,NCY»NRN»NG»lDlM,N2»N3»tt'»»NT,Ux 

r^'.»Ntw»tPSl,NDES#ALEN,jCALOi 

>NOFr,CSTAK»REM,i)EP»UlNF,TSTtP»XC,uT 

E;>f  PL  liZ,Or'L»QPU 


109 


10 


^0 
70 

100 


IF  (LL.EJ 
NN  =  N+1 
Df  =  -1./ 
DT  a  TP/F 
DCN  =  CDS 
DSN  =  SIN 
DELR  =  .5 
DELTh  »  . 
RA  =  DT/D 
RA^  =  DT* 
DO  10  K  = 
R (K)  «  1. 
RS(K)  =  ( 
RKk)  =  - 
CONTINUE 
P(NN)  =  0 
BtT  =  SCJR 
IF  (NOES. 
CALL  AIRF 
GO  TG  6 
CALL  READ 
CONTINUE 
IF  (MODE. 
DPMI  =  .5 
MA  =  Mf1/3 
Mb  =  MM-^ 
IF( (NT.GT 
J«l 

DO  40  L  = 
DELDLD( L) 
DSUM(J)  = 
ARCOLD(L ) 
IF( J.GE.M 
IF( ( J.LE. 
DSUM(J)  = 
J  =  J  +  1 
CONTINUE 
NT  »  L 
WRITE  (N4 
FORMAT  (1 
CALL  SPLl 


.0)  LL  =  M/^+1 


bO 
60 


FLDA 

LDAT 

(DT) 

(DT) 

/DR 

5/DT 

R 

DT 

1,N 
+  DR* 
RA*R 
.2b* 


T(N  ) 
(M) 


FLGAT(K-l) 

(K)  )*(RA*R(K)  ) 

DT/R(K) 


T(1.-FM*EM)  -1. 
66.0)  GO  TO   b 
OL 

OS 

EQ.l)  CL  «  e.*PI*CHD*SI(l)/ (1.+3ET) 
*CL/CHD 

*  (  (MA  +  1  )/2) 

.140) .DR. (XP.LT.O. ) )  JK  =  -1 

1,MM 

=  0. 

0. 
«ARCL(J  ) 
M)  GO  TG  70 
MA).QR.(J.GE.,iB))  J=J  +  1 

0. 


CALL 
CALL 
CALL 
CALL 
CALL 
DO  60 


INTP 
SPLI 
INTP 
SPLI 
INTP 
L  » 


*100) 
HO*  14 
F  (MM, 
L(NT, 
F  (  MM, 
L(NT* 
F  (MM, 
L(NT, 
1»M 
1,NN 
=  R(  J 


NT 
,45H  POl:US  WILL  BE  USED  TJ  DEFlNt  INNER  AIRFOIL 
ARCL>XC,PHI(l,3),PHl(l,D),PHI(i,7),3,0.,3,0.) 
ARC  OLD,   X0LD,AFCL,XC,PHl(l,3),PHi(l,b),PHl(l,7)) 
ARCL»YC,PHI(l,3),PHI(l,b),PHI(i,7),3,C;.#3,U.) 
ARC  OLD,   Y0LU>ARCL,YC,PHI(l,3)»PHi(i,^),PHI(l,7)) 
ARCL,FM, PHI (1,3),  PHI  (1,5), PHI (1,7), 3,0., 3,0.) 
ARCaL0>ANGQLD/AkCL,FM,PHl(i,3),PHl(i,t)),PHl(l,7)) 


DO  50  J 

PHK  L,  J) 

CONTINUE 

FSYM  =  FSYM-12. 

IS  -  2 

RETURN 

END 


)*CJ(L)+DPHI*PHIR( L) 
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10 


SUBR 

SET 

COMM 

1  >RP 

2  ,  SI 

3  ,  AN 
^  ,RP 

CGMH 

1  *XA 

,C^ 

^IK 

»  NP 

*SC 

f   IN 

TPI 

ANG 

SN  = 

CN  = 

DO  1 

ca(L 

SI  (L 

PHIR 

CN  = 

SN  3 

ANG 

CONT 

Cl)(M 

CO(M 

SI  (M 

SUM 

RETU 

END 


OUTINt 
THE  SI 
ON  PHI 
(31  )>(< 
(162  ), 
GOLDd 
^(31), 
CN  /A/ 
^ YA»Tfc 
,C5»C6 
^JK,  II 
TS»LL» 
ALOa^N 
C.QFAC 
=  l./T 
=  ALP  + 
SIN(  A 
SQRT 
C  L  = 
)  «  CN 
)  =  SN 
(L)  =( 
CN*DC 
CQCL) 
=  ANG-f 
INUE 
K)  =  C 
M  +  1)  « 

^)  =  5 
h  + 1 )  = 

RN 


COS 
NFS, 
(162 
PP(  3 
PHIC 
bl)  » 
kP5( 

PI* 

,bT, 

»C7, 

»ITY 

I^LS 

6*GA 

,GAM 

P 

B3(  i 

NG) 

(  1.- 

1,M 


I 

COSINE 
f 31),F 
1  )  >  P.  (  3 
{162  )» 
XOLD( 1 
31) 

TF>RaO 
OR, DL  L 
B  L  T  ,  B  t 
P^MODE 
£P>f^^> 
MMAf NO 
.KDf S» 

) 

SN*SN) 


S/  AND  THE  TERM  AT  INFINITY 
P(i62*3i)*A(31),tt(2i)>i,(3i)i:;{3i),t(ji) 
l)»RS(31)>Rl(31)>AA(16  2),bB(lb2),CG(162) 
XC(lo2),YC(162),FM(162),ARCL(l62),DSUr.  (lc£) 
62), YQLu( 162), ARC  010(162), DEL GLC(lo2) 

,EM,ALP,RN,PCH,XP,TC,CHC,DPhI,CL,RCL,YR 

TH,DtLR,hA,(:/CN,DSN,»<A't,EPSlL>QCrlT,Cl,C2 

TA,FSYh,XSEP,5EPM,TrLE('.),M,N,M.r,NN,NSP 

,  iS,NFC,NCY,NRN,NG,  Il)IM,N2,N3,N'.,NT,IXX 

NEw,EPSl,NDES,XLEN,SCALQI 

PT,CSTAR,REM,UEP,Q1NF,TSTEP,XLIUT 

P  L  T  S  Z  ,  Q  P  L  ,  C  P  U 


ANG+ATAN ( ( 
N-SN*[iSN 
♦DSn+SN*DC 
DT 

W 

ca(2) 


BET*SN*CN)/(l.  +  6bT*S'^*SN)))«TPl 
N 


N 


SI(2) 


SL3R0UTINE  SWEEP 

Sk.FRP  THROUGH  THE  GRIJ  JkE  Ti^E 

CuMMON/FL/FLLxT<t,CDA 

C0M10N  PHl(162,31),FP(i^2,31),A(31),e(31),C(31),D(31),t(31) 

1  ,RP(31),RPP(31),R(3l),RS(31),PI(31),AA(it2),BB(lt2),C0(ifc2) 

2  ,SI(162),PHIR(ib?),XC(io2),YC(lb2),i-'1(i62),ARCL(lt2),DSbM(lt2) 

3  ,ANG0LD(162),XCL[/(162),YJLI:(1d2),ARCJLD(1o2)»CElLLC(162) 
<»  ,RP'.(31  ),RPt)(  31  ) 

COMMLN  /A/  PI  ,  TP,RAD,t;"1,  ALP»RN,PCH,  xP,TC»CHO,OPHI,CL,RCL,  YK 

1  ,  XA,YA,  TL,DT,DP,DtLTH,DELR,P  A,DCN,0SN,RA<i,EPSiL,0CfilT»Cl,C2 

2  ,C<.,Ct>»v.fc»C7,BET,BFTA,FSYr,XSEP,SEPM,TTLE(<.),,"1,N».»'.M,NN,NSP 

3  .lK»JK.IZ»lTYP,KODE,li.NFC,NCY,N'<N.NG,IOIM,N2»N3»N<..NT»I*A 
<.  ,.SPT5,LL,  l»LSEP,M«.,NEW,EPSl,Nt  LS,XLEN,iCALOI 

t)  ,SCALa0»N6»&A?^r-A,NQPT»CSTAR,REn»L)EP»0INF,TbTEP,XUUT 
6  ,INC,QFAC,GAM,KDES,PLljZ,iPL,uPO 

YP  ■  0. 

NSP  ■  0 

OD  IC  J  -  1,NN 
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THE  GRID  FROf'  NOSE  \U     TAR  CN  UPPEk  SUf-FACt 


Phi  (MM, J  )  =  PHI  (i,  J  )  +  DPHI 

PHI(MM+1,J)  -  PHi(2/ J)+UPHI 

E(  J  )  =  0. 

RP^( J  )  =  0, 

kPb { J  )  =  0. 
10  RPP(J)  »  0. 

SWEEP  THROUGH 

TE  =  -2. 

LLP=LL+1 

DU  3C  I=LLP,M 

CALL  MURMAN 

DO  30  J  =  1>N 
30  PHI(I-1>J)  =  PHK  I-i,J)-RP  (J) 

DO  32  J=l/N 
32  PHKM,  J  )  =  PHI(M,  J  )-t  (  J  ) 

DO  51  J»1,N 

E{  J)=0. 

RPP( J )=0. 

RP4(  J  )  =  0. 

RP5(  J)  =»  0. 
^1  CONTINUE 

SWEEP  THROUGH  THE  Gkli)  FROM  NOSE  Tb  TAIL  UN  LOwbK  SUkFACE 

TL  =  2. 

I  =  LL 
80  1  =»  I-l 

CALL  MURMAN 

DO  60  J  =  1>N 
bO  PHI{I+1,J)  =  PHI ( I+l, J )-R0 (J ) 

IF  ( I.GT.2  )  GO  TO  dO 

DC  70  J  =  1,N 
70  PHI(2, J)  =  PHI(2> J )-t{ J  ) 

DC  11  J  =  1,NN 

PHI(MM+1,J)=PHI{2,J)+DPH1 

E(J)=0. 

RPA ( J  )  =  0. 
RP5(  J  )  =  0. 

11  CONTINUE 
TE=-2. 

I  =  MM 

CALL  MURMAN 
DO  50  J=1>N 

PHKhM,  J  )  =  PHT  (W,  J  )-E(  J  ) 
50  PHKl,  J)=PHI(MM,  J)-OPHi 
DO  12  J=1,N 
E(J)=0. 
RP^( J)  =  0. 
PP5( J  )  =  0. 

12  CONTINUE 

I=LL 

CALL  MURMAN 

DC  13  J=1,N 

13  PHI (LL, J) "PHI (LL, J )-£ ( J) 

ADJUST  CIRCULATION  TC  SATISFY  THE  KUTTA  CUNOiTiON 
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^1 

90 

95 
97 


2^.2 


100 


(kCL  .EQ.O.  )  GO  TO  90 

»  RCL*((PHI(M, 1)-(PHI(2»1)+DPHI))«DELTH+SI(1)) 
(MODE.EQ.l)  GO  TO  90 
TO  'rl 


IF 

YA 

IF 

IF  (NDES.6E.0)  GO 

ALP  =  ALP-.5*YA 

GO  TO  <»2 

BB(1)  -  bB( 1) -.5*YA 

CALL  COSI 

GO  TO  95 

YA  »  TP*YA/( l.+BET) 

DPHI  »  DPhl+YA 

DO    97    L     -    1»M 

PHKL^NN)     =    DPHI*PHIR(L) 

FLUXT'O. 

NF=N-10 

IF(N.LT.30)     NF-N-5 

DO    2<t2    L=2fMM 

U«R(NF)*(PHI(L+1*NF)-PHI(L-1*NF) ) *DE LTH-S I ( L ) 

V«R(NF)*R(NF)*{PHI(L>NF+1)-PH1(L>NF-1))»DELR    -CO(L) 

QF"(U*U  +  V*V)/FP(L,hJF  ) 

RH»{l.-»-.2*EM*EM*(l.-QF)  )**2.5 

FLUX«RH*V/R(NF) 

FLUXT=FLUXT+FLUX 

CONTINUE 

FLUXT-DT«FLUXT*CHD 

F  L  U  X  T  ^  =  F  L  U  X  T 

IF(MDDE.EQ.O)  RETURN 


DO  100  J 
DO  100  L 
PHI(L» J) 
RETURN 
END 


1»N 
1,M 
PHK  L,  J)+YA*PHIR(L) 


C 

c 


SUB 
SET 
REL 
COM 

1  *R 

2  f  S 

3  ,A 
<t  »R 

COM 
1  *X 
2 
3 

5 
6 


#C 
,  I 
/N 
,S 
tl 
DO 
E  (N 
FAC 


ROUT 

UP 
AXAT 
MON 
P(31 
I(  16 
NGOL 
P'.O 
MUN 
A,  YA 
<.,C5 
K,  JK 
PTS» 
CALQ 
NC*Q 
THE 
N  )  - 


INE  MUP 
COEFFIC 
ION  AND 
PHI(162 
),RPP( 3 
2  ),PHIR 
D{ 162)  * 
1 ),RP5( 
/A/  PI, 
*TE,DT, 
pCb, C7, 
f  IZ»ITY 
LL»  I,LS 
0,Nb,GA 
FACfGAM 
8GUNDAR 

0. 
.5*Tfc 


MAN 
lENT 
COM 
,31  ) 
1),R 
(162 
XDLD 
31  ) 
TP,R 
DR»D 
BET, 
P,MO 
EP,M 
MMA, 
,KDE 
Y 


ARRAYS  FOP  THE  TRIDIAGONAL  SYSTEM  USED  FUR  LINE 
PUTE  THE  UPDATED  PHI  ON  THIS  LINE 
,FP(I62»31),A(31)»B(31),C(31)»D(31).E(31) 
(31),RS(31),KI(31),AA(lb2),be(162),C0(lb2) 
),XC( 162), YC(162),FM(162 ), ARCL(162),DSUM(162 ) 
(lfc2),YaLD(162),ARCQLD(162),DEL0LD(162) 

ad,em,alp,rn,pch,xp,tc»chd,dphi,cl,rcl,yr 
tlth,delr»ra,ocn,  dsn,ra<.,eps1l,ccrit,c1,c2 

faETA,FSYM,XSEP,SEPM,TrLE(<t),M,N,MM,NN,NSP 

DE»IS,NFC»NCY»NRN»NG,IDIM,N2»N3»N<»,NT,lXX 

'•,N£w,EPSl,NDF5,XLEN,SCALQl 

NOPT#CSTAR,REM,i}EP,OINF,TSTEP,XGUT 

S,PLTS2,QPL,QPU 
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IH   =  I-l 

IF  (  f- AC  .LT  .0.  )  IM  =  I  +  i 

KK  =  0 

PHIO  =  PHK  I*  2)-2. ♦OK*ClJ(  I  ) 

PhIYP=  PHI (I»  2  )-PHI (1,1) 

PhIY>  »  PHIYP+PHiO-PHI ( I, 1 ) 

PHIXX  =  PHK I+l> i)+PhI(I-i,i)-HhI( l,i)-PHI( 1,1) 

PHIXM  =  Phl(  I  +  l,  1)-Phl(  I-i>l) 

PHIXP  =  Phil  (  1+1,2  )-PhI(  1-1,2) 

CHECK  FOR  THE  TAIL  PGINT 

IF  (  I.Nt.Mfl)  GC  TO  10 

0(1)  =  (Cl+Cl)*RS(i) 

A(  1)  =  -C( l)+XA*Ci-Cl 

D(l)  =  CI* (PHIXX  +  PS (1 )*PHI YY  +  kA^*CG{  I  )-E ( 1)  ) 

GO  TO  ^0 
10  U  =  PhIXM*DfcLTH-SI( I ) 

BQ  =  U/FP( 1*1) 

QS  =  U*SC 

CS  =  C1-C2*QS 

BO  »  BQ*OS*(FP(  3-1,  n-FP(I  +  l,  1)  ) 

X  =  PA^*(CS+OS)*CO(I ) 

C(l)  =  (CS+CS )*PS( 1) 

L(l)  =  CS*KS(l)*FHiYY+Kl(l)««u+X 

CMOS  =  CS-QS 

PHIXT  =  BETA*  ABS(U) +Ad:)(C;-IC;S) 

Eri2  =  QS/CS 

EPS2  =  EPS1*VLAYEP (ch2.0PL,wPU) 

PHIXXX=  EPS2*PH1XX-RP^(1) 

RP^(l)  =  EPS2*PHIXX 

D(l)  =  0(1)  +  PhlXXX 

IF  (wS.LE. JCPIT)  GU  TJ  30 

FLOW  IS  SUPERSONIC,  BACKwAPD  LiFFEKtNCES 

KK  =  1 

PHIXT  =  PHlXT-Cr'QS 

PHIXXM  =  PPP(  1  ) 

A(l)  =  -(C (1 )+PHIXT) 

r(l)  =  D  (  1  ) +C  MCS*PHlXXM-PHIXT*r.  (  1) 

A(l)  =  A(l)-2.*EPS2-RPt>{i) 

0(1)  =  D(l)  -(  EFS2  +  2.*RP1;(  1)  )»E(  1) 

RP5(1  )  =  EPS2 

GO  TO  ^0 

FLOW  SUBCRITICAL,  CENTRAL  DIFFERENCES 
30  A(l)  =  XA*CMOS  -C(1)-PHIXT 

D(l)  =  D(  1  ) +CMQS*PHIXX-PHIXT<'E  (  1  ) 

A(l)  =  A(l )-2.*EPS2-RP5(l) 

u(l)  »  U(l)  -(  tPS2+2  .*RPp(  1)  )*M  1) 

RP5(1)  =  EPS2 

UCi  iMON-eOLNDARY  POINTS 
^0  RPP ( 1  )  =  PHIXX 

00  60  J  »  2,N 

PHIXX  =  PHK  1  +  1,  J  )+PhI(  I-l,  J  )-PHI(  I,  J  )-PHI{  I,  J) 

UU  =  PHIXP 

PHIXP  =  PHI  ( 1 +1, J+1)-PH  I(  I-l,  J+1  ) 

PHIXY  «  PHlXP-PHiXM+( t ( J+l)-L ( J-1) ) *FAC 
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^5 


PHI 

DU 

PHI 

Phi 

PHI 

Phi 

U  = 

UV 

V  = 

RAV 

BU 

BCU 

cS 

uv 
vs 
cs 
cs 

Cf^V 
CMu 
PHI 
PHI 
Eh2 
EPS 
PHI 
^?^ 

D(  J 
1  FP 
C(  J 
UV 
IF 
SUP 
KK 
CMQ 
Fu 
AUU 
bUU 
hVV 
AW 
BUV 
AUV 
PHI 
b  (J 
PHI 
PHI 
L(  J 
PHI 
IF 
PHI 
PHI 
Gb 
PHI 

be. 

B(  J 


XM  = 
=  DU* 
YYM  = 
YM  = 
YP  = 
YY  « 

R(J) 
=  k{  J 

LV*P 

=«  ft( 
=  1./ 

=  BU 
=  BGU 
=  {  BQ 
=  BQ* 
=  US  + 
=  Cl- 
S  =  C 
S  =  C 
XT  = 
YT  = 

=  OS 
2  =  E 
XXX  = 
(  J  )  = 
PUTF 
)  «RA 
(  I  +  l> 
)  =  D 
=  .5* 
(OS.L 
ERSUN 
=  KK  + 
S  =  C 
=  1./ 

=  t?5 

=  VS 

=  ^S 

»  UV 

=  BC 

)  ' 
X  I  « 
YT  = 
)  '     i 
XXM  » 

( v.L  r 

YYM  ■ 
XYM  = 
TO  <»b 
XYM  « 
■  t*(  J 
)  -  L 


DU 

UELTH 
PHIY 
PHIYP 
PHK  1 
PHlYP 
*UU-S 
)  ♦(PH 
(  J  )-C 
J  )  «kA 
FP(  I, 
♦L 
*U 

U+BOU 
V*V 
VS 
C^*US 

s-vs 

S-LS 
BETA* 
BETA* 
/CS 
P  S  1  *  V 
tPS2* 
tPSZ 
CONTR 
^*(  (C 
J  )  )+R 
(J)  + 
6(-U*iR 
F-.CCR 
IC  FL 
1 

5-wS 
3S 

*Fa 

(J  )*A 

♦  FQ 
(J  )*^ 

♦Fu 

u*Aes 

P  V  V  *  P 
Ci*BU 

pHixr 

PhilYT 

(  J  )*r' 

PPP( 

.0)     o 

PriK 

PHIY 


, J  +  1  )-PHI  (  I, J  ) 

-  F  H  i  Y  N 

Id) 

I(I>J  +  L)-PH1(1,J-1))*L'ELP 
0(  I  ) 
*V 
J  ) 


)  *v 


ABS(U) 
ABS(PaV) 


LAYER! 

PHIXX- 
*PHIXX 

iBurio 

MVS+US 

AV*( FP 

PHIXXX 

AV 

IT  )     GO 

L^f    US 


tM2*QPL>>jPU) 
PPh( J ) 


N  DF  RIGHT-HAiNl)  SIDE  FkUM  LQi*  ORDtP  TER.Ii 
-VS)*OV-UV*UU)+kI(J)*:ib*BJ*(U*(FP{I-l,o)- 
( 1» J-i)-FP (I> J+i ) ) ) 


TG  t)0 
E  BACKWAkD  DIFFtRENCING 


UU 

VV 


(RAV)*f  L*  r£ 

HlXX-riUV*HHlXY-»-tLU»PHlYY 

U 

-ChUS*( AJU+AUo-AUV)     ♦CS*8VV 

-C^Ui*  (  AVV+AVV-».LV  ) 
tUYT 
J  ) 

Q    TO    45 

I» J*^)-Prtl( l,j*i  )-PHlYP 
P*HhI(  Ih,  J)-r'Hl(  IM,  J*l  ) 


P  H  I  (  I  M,  ^  )  -  PH  1  (  1 ,1 .  J  -  i  )  -  P  H  I  Y  1 
) 
(  J  ) 
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L  (  J  )     =    b  C 
46     PHlSb     «     ALU*PHIXX^  +  AIJV*PHI  aYM  +  A  VV*kHI  YYM 

A( J  )     =    -(b( J>+C( J)+PH1XT) 

D(J)     =    D( J) +CM„S*PHISS  +  CS*PHINN-L ( j)*PhlXT 

A(  J  )     =    A ( J  )-2 .*fcPS2-KP3( J) 

D(J)     »    G(J)     -( tP52+2  .*KPb{ J) )*F( J) 

RP5( J)     =    tPS2 

GU    TU    60 

SUaSOMC    FLOW»     LSE    CLNTRAL    uIFhEPENCtS 
50    C(  J)     =       l^S(J  )*C^VS 

b(  J)     ^    C ( J  )+PHIYT 

PhiXT  =  PHIXT+CMUS 

A(J)  =   XA*CMUS-b( J )-C( J )-PhIXT 

D(J)  =  D(  J  l+CMUS+PHlXX-UV  +  PhlXY+C  (  J  )*PH'IYY-PHIXT*b  (  J  ) 

A(  J)  «  A( J  )-?.*EPS?-kP5( J) 

D(J)  =  C(J)  -(bF  S2  +  2.*kPb{  J  )  )-tL  (J) 

kF5(J)  =  EP!)2 

IF  ( V.LT.C.  )  GO  TD  6C 

e  ( J )  =  c  { J ) 

C(  J)  =«  C(  J  )+PHlYT 
60  RPP(J)  =  PHIXX 
NSP  =  NSP+KK 

SOLVt  THE  TRICIAGONAL  jYbFEM 
CALL  TklO 
RETURN 
END 


SLb 
SOL 
CUM 

1  *R 

2  *S 

3  »A 

4  ^R 
CCM 

1  ^X 


10 


^C 
,1 
*N 
*S 
>  I 

XX 

PP( 

E  (1 

DO 

DO 

C(  J 

XX 

RP( 

t  (J 

DO 


RGUTIN 
Vt  N  D 
MON  Ph 
P(31), 
1(162) 
N&OLO{ 
P4(3i) 
MON  /A 
A, YA, T 
4,C5,C 
K,JK,  I 
PTS»  LL 
CALQO, 
N  C  »  Q  F  A 
=  1./ A 
1)  =«  t 
)  =  XX 
E  L  I M  I  N 
10  J  = 
-1)  = 
=  1.  /( 
J  )  =  h 
)  =  (  D 
BACK  S 


E  Tk 
IMEN 
I  do 
kPP( 
>PHI 
162) 

I  PI 
E,DT 
fc,C7 
2, IT 
»  I»L 
N6,G 
CGA 
(  1) 
(  1) 
*D{1 
ATIQ 
2>N 
C(  J- 
A(  J) 
(  J) 
(J  )- 
UbST 


ID 

SIGNAL  IRIOIAGGNAL  SYSTEM  dF  EQUATIONS 

2^3l)>FP{l62,31)^A(31),B(31)*C{3i)>C(31),E(il) 

31)>R(3i),RS(31)>kl(3i)>AA(ic2)*BB(lo2)*C3(lc<::) 

R(lt2),XC(l62),YC{162),FM(l62),ARCL{162),DSUM(ic2) 

, XCLD(lt2)>Y3LU(l62)»AkCaLJ(l62),0ELuLu(l62) 

(31) 

,  TP,RAD*EM>ALPfKN^PCH,XP,lC»CHi:,DPhI,CLiKCL^YR 

>DP>UtLTH,DELR»PA,ULN^L)SN>^AA»EPSlL»UCRiT>Cl>C2 

,!^ET»BETA,FSrN.*XSEF,StPr.>TTLE(4),rt,N,N'^,NN,iNSP 

YP,M0UE,IS,NFC»NCY*NKK,NG*lJlN*N2Wvl3,N4»NT,iXX 

SLP*M4W.E«*EPSi>NDES>XLbN*SCALQI 

AMhA,NOPT,CSTAP>FEN>DEP*QINF*TSTEP»XCUT 

M,KDES^FlTSZ»<jPL^UFU 


) 

N 

1)*XX 

-a( J )*c ( j-i ) ) 

P ( J ) +1 ( O-i ) ) *xx 

I  TUT  ION 
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EMX  =  ABS (E(N) ) 

DO  20  J  =  2,N 

L  «  NN-J 

E(L)  =  E  (L  )-C(L)*E:(L+l) 
20  EMX  =  AMAXK  LMX,  AbS(  E(L)  )  ) 

FIND  THE  LOCATION  OF  THE  MAXIMUM 

IF  (EMX.LE.ABS(YR ) )  kfcTURN 

IK  •  I 

DO  70  J  =  1,N 

IF  ( ABS{ E( J) )  .EQ.EMX)  GO  TO  7^ 
70  CONTINUE 
7^  JK  =  J 

YR  «  E ( JK) 

RETURN 

END 


RESIDUAL 


C 

c 


SUBR 
GO  T 
GO  T 
CDMM 

1  »RP 

2  ,SI 

3  f  AN 
A  ,RP 

COMM 
1  ,  XA 
fCt 
,  IK 
,NP 
»SC 

y   IN 
X  ■ 
NG  » 
M  » 
N  » 
IF  ( 
LL  » 
IF  ( 
IF  ( 
LSEP 
PF  = 
OELR 
DELT 
DR  - 
DT  - 
DCN 
DSN 
RA<i 
NC  Y 
I  " 
MP  ■ 


OUTINE  RE 
0  CRUDER 
0  FINER  G 
ON  PHKlb 
(31),RPP{ 
(162)>PHI 
G0LD(162) 
<.(31),RP5 
ON  /A/  PI 
» YA, TEfDT 
,C5>C6,C7 
t  JK> II,  IT 
TS*LL»  I*L 
ALOO, N6,G 
CfQFAC^GA 
2.**LSIGN 

FLOATING 
FLOAT( M) ♦ 
FLOAT (N)* 
N.EQ.l<r) 

FLOATCLL 
LSIGN.GT. 
LSIGN.GT. 

•    FLOAK 

1  ./X 

«  X*DELR 
H     «     X+DEL 

PF*OR 

PF^DT 
«    COS( DT) 

-  SIN(DT ) 

-  PF*PF*R 

-  0 
LSIGN 

MM*1 


MESH(LSIGN) 

GRID    IF    LSIGN    IS    -1 

RID    IF     LSIGN     IS    +1 

2»31),FP(162,31)*A(31)>6(3i)*C(31)^D(31),E(31) 

31)>R(31),RS(31)>RI(31),AA(162),bB(162),C0(lt)2) 

R(162)»XC(162),YC(162)fFM(l62)>ARCL(162)*DSUM(162) 

*X(JLD(162)»YaLD(162)*ARC0L0(162)»0EL0LD(162) 

(31) 

*TP^RAD>EM,ALP»RN,PCH,XP,TC»CHD,DPHI,CL»RCL»YR 

»DP,DELTH,DELR>RA,DCN,0SN,RA'.,EPSIL,QCf<IT,Cl»C2 

,BET,BETA,FSYM,XSEP,SEPM,TTLE(^),M>N,MM,NN,NSP 

YP,M0DE»IS#NFC#NCY,NRN,NG#I0IM,N2»N3,N<»,NT,IXX 

SEP,M^,NhW»EPSl*NDES*XLEN>SCALQI 

AMMA,NQPT»CSTAR»REM,DEP,QINF,TSTEP*XOUT 

M,KDES,PLTSZ>QPL*OPU 

)  /X  +  .2 

X  +.2 

X+.2 

N-li. 

-1)«X*1.2 

0)  MM  =  1*1 

0)  NN  -  N+1 

LSEP-1  )  ♦Xt-l  .2 


TH 


A<« 
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20 
30 


AO 


50 

80 


CALL  PEfMUT  (P,NN,1) 

CALL  PERMUT  ( RS»NN*1  ) 

DO  5  J  =  1,N 

PI  (  J  )  »  -.2!3*DT/R(J  ) 

CALL  PtRMUT  (DSLM^hP,!) 

OU  2  0  L  =  1*NN 

CALL  PERMUT  (  PH  I  (  1  ^  L  )  » :-i  P  »  1  ) 

DG  30  L  =  1»MP 

CALL  PEP^LT  (  PHi  (Lf  i  )^.MN*  IDIM) 

M(^  =  M  +  1 

NN  =  N+l 

IF  (X.EQ. .5)  GO  TO  dO 

OL  ^0  L  =  l»^'l»2 

DSUM(L+1)  =  .5*(CSUM(L)+DSUM( L+2) ) 

DO  40  J  =  1,NN,2 

PHI(L+1»J)  =  .5*{PHI(L, J )^PHI ( L+2» J) ) 

DU  5C  J  =  l,^,Z 

DO  bO  L  =  1»MM 

PhI(L,J  +  l)  =  .tP*(PHl(Lf  J  )+PHl  (L^  J  +  ^  )  ) 

CALL  MAP 

RETUKN 

END 


SUBPDUT 
REORDER 
COMMON 

1  ,RP (31 

2  *SI(16 

3  ,ANGOL 

4  ,RP4(3 
CuMMUN 

1  >XA,YA 

*C4,Ct3 

, IK, JK 
/NPTS* 
, SCALO 
,  I N  C  *  Q 

UIMENSI 

L  =  1 

JY  =  JX 

NY  =  2* 

NZ  = 

IE(  I  . 

NY  = 

NZ  » 

DC  IC 


2 
3 

5 
6 


2* 
GT 
JX 
JX 

J 


10 


20 


ACL)  = 

L  =  L  +  1 
DCj  2C  J 
A(L)  = 
L  =  L+1 


INE  PERMUT  (AX,NX,JX) 

S  POINTS  I^ITHIN  AN  ARRAY 

PHI(i62»31)*FP(lo2»3i)^A(3i)»t:(31),C(jl)^'J(31),t(31) 

)*kPP(31)>R(31),RS(31),Ri(3i),AA(ib2),Bb(ife2)>C0(lfa2) 

2),PHlR(l62)»XC(lfa2)>YC(lb2),FM(i62)*ARCL(162)#DSUh(lfc2) 

D(i62)*XCLi:(lb2)»Y3LD{162)*ARCULD(162)*UELLLD(lo2) 

1)>RP5(31  ) 

/A/  PI>TP*RAO,tM,ALP»PN,PCH,XP,TC>ChU,DPHl,CL^RCL»YK 

*TEfDT^DRfCfcLTH>DLLK,RA»CCNiDSN*KA4,£PSIL>wCKlT>Cl*C2 

*C6*C7#3tT.PfcTA,FSYM,XStP>SEPM,TTLb('.)^M,N,MM,NN,NSP 

»IZ^ITYP,N0Lt»lS»NFC»NCY>NkN,NGWDIM»N2»N3^N4,NT»iXX 

LL^ULSEH^M^^NEy.^EPSl^NLES^XLEN^jCALCi 

u*N6*GA."^rA»NQPT»CSTAR*kEM^0eP>ulNr*TSrEP*XLLT 

FAC>GA.'^>KDfcS,PLrSZ»OPL»QPU 

ON    AX(1) 

+  jX 

( (NX-l ) /2 )+l 

(NX/2) 

.0)     GO    TD    30 

* (NY-1  )+l 

*(NZ-1) 

=     1,NY,JY 
AX(  J) 

=     JX,NZ^JY 
AX( J+1) 
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GO  TO  60 
30  DC.  ^C  J  =  1*NY,2 

A(  J )  =  AX ( L> 
^0  L  =  L+JX 

OU  50  J  =  Z,Ul,2 

A  (  J  )  =  A  X  (  L  ) 
50  L  =  L+JX 
60  L  =  1 

UU  7C  J  »  1,NX 

AX(L )  =  A(J) 
70  L  =  L+JX 

RbTURN 

END 


10 


SbBR 
COMP 
COfH 
COMM 

1  »RP 

2  ,SI 

3  f  AN 
h     ,9? 

CbMM 
1  ,XA 
^C^ 
,  IK 
,H? 
fSZ 
,  IM 
PL  AL 
CUMP 
DIME 
EGUI 
DATA 
l»iH'. 
OaTA 
MACH 
IMC( 
CLCO 
CM  « 
IF  ( 
DY  - 
IF  ( 
Rtwl 
Mkir 
UO  2 
CP  « 
CbMP 
IMt* 
ibM 
CLCO 


OUT  I 

UTE 

CN/F 

ON  P 

(31) 

(162 

GOLD 

't(31 

ON  / 

*YA, 

f  C5» 

>  JK, 

TS»L 

ALQO 

c*aF 

MAC 
LtX 
NSIO 
VALE 

IMA 
»1H5 

TX 

(w) 
C)  « 

»  0 

0. 
(XP. 

YOL 
FSYM 
NO  M 
b  (1 
0  L 

CPx 
LTE 
"   C 
UP  C 

■  C 


NE  G 

CP»C 

L/hL 

hid 

*RPP 

),PH 

(  162 

)>p?P 

A/  P 

TE,U 

C6»C 

IZ,  I 

L>I, 

t  No* 

AC*G 

HN.M 

CLCU 

N  MA 

NCE 

CH/1 

»1H6 

/'thC 

-  sa 

MIN 


ETCP 

Df  A 

bXT't 

62,3 

(  31) 

1P(1 

)  ,   Xu 

5(31 

I,TF 

T,DR 

7, BE 

TYP, 

LSEP 

GA^1^ 

AM*K 

ACh 

,TMP 

CHn( 

(MAC 

HU,  1 

,  1H7 

DF  =  / 

PT(t 

0(21 


(CDF) 

ND  CM 
»CD4, 
1)»FP 

i  K(31 

t  2  )  »  X 

LL  (16 
) 

*KADi 
,DELT 
I*  dET 
MODE, 
,  M^,  N 
A  ,  N  0  P 
LES,H 


oY 

(162 
),\<t 
C(  16 
2  )  »  Y 

Ei,  A 
H,DE 
A»  Fi 
IS»N 
t  ^,  t 
Tf  Ci 
LibZ 


1  ),CPx(  1) 
HN(1), A(i 

H(<>  Ihj,  iH 
, 1H8,1H9, 

/(C1-C2*U 
>  1HX(  10. 


INTEGkATION  and  CUIPUT  MACH  CIAGkAM 

INDCD 

»31),A(3x),a(31)>C(Jl),J(31),e(31) 

(31)*Pl(3:)*AA(it2)*Bfl(lfc2),CC(io2) 

2),YC(ib2).FM(l62)*ARCL(i62)»DSuM(lt,2) 

]LL(lt2)iAKCaLj(lfc2)>DELGLD(lc2) 

LP,kN*PCH*XP,TC,CHJ,L)PHl,CL#'<CL,YR 

LR,PA>uCN,DiN,'(A^,EPSlL>QC«ll>Cl#C2 

Ypi^XSEP*  SLPr',TTLE  (  H)0,.'.*t.'1,  NN,.\SP 

FC,NCY,Ni<N,NG,IDIM*N2,N3,N^,NT,lAX 

PS1,NCES*XLE.M,SCAL01 

TAR,Rtf^,utP,wL>4F*TjTEP*XuL'T 

*QPL>UPU 


,MN(1) , iMACH(21 ) 

)  )  *  (  C  P  X  (  1 )  ,  P  H  I  .<  (  1  )  )  ,  ( ,^  .M  (  1  )  ,  »-  P  (  i  ,  J  i  )  ) 

r,lhL,  1HV»  iM^,  iMX,  IHYflHZ,  IhO,  inl,  ln2*  1H3 
iH-f/ 

)  ) 

♦0)*1 ) 


GT  .0. ) .CR . ( IZ .Lfc.10) )  GU  Tu  10 

0(NT )-YOLD(l) 

.NE.G. )  OY  «  YC(M^  )-YC( 1  ) 

'^*\ZC>)    (^»CL,i}Y»TC.  NKN,:;fi 

«  1,M"1 

(L  ) 

CP»OZ 

P*SjKT(FP(L.l))»C"iPLx(LLi3(ri(L))»SlN(FM(L))) 

L»CO>  ANO  CM 

LCl)*TMP 
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IP) 


15 

20 


261 


160 


70 


80 


AO 


50 


CM  =  CM+(XC(L  )-.2^)*i^EAL(TMP)-YC(L)*AI^  A3(T; 
WPITE  PUNCH  OUTPUT  uN  .1^  IF  XP  =  0  A.sD  IZ.^jT.oU 
Ic  {  (XP.GT  .0.  ) .Dh , (IZ.LE.8C) )  GG  TO  20 
Q  »  f- ACHN(L  )*SLkT(Cl/(  l.+:2*rACHN(L  )*MACHN(  L)  )  ) 
■■  -  0*S1,><(FM(  L  )  ) 


U  =  Q*COS(FM(  L)  ) 

IF  ( XP. Eu.O  )  GG  TO  lb 

WklTE  (M-^tlSO)  U,V,XC  (L)>  YGL:  (L  )>CP 

GU  TO  20 

WRITE  (,1^,130)  L,  V/ XC(  L)>YC(L)*CP 

CONTINUE 

CORRECT  CL,CD  FOR  ANGLE  OF  ATTACK 

CLCO  =  -(D  T*CH[)*CLi-U*v:ilPLX(  S1N(ALP  )^Ca3(  AL  P)  ) 

Ch  =  OT*CHO*CM 

wklTE  CD,CL*CM  ONTO  K^ 

CDW  =  REAL(CLCD) 

aCR=SQRT(QCklT) 

DCD^  =  2.*(tiCR-l.)*FLUXT^ 

CD  =  CDW+CDF 

CD^=CD+OCD^ 

CDW=CDW+DCD^ 

IF{ INDCU.tw.O  )  PRINT  2ol» C DWf CD F, Cb^ 

FQRMAT(3H  C  D\«  =F  10  .  t>,  bH  CLF  =F  1  0  .  b> 'th  C0  =  F10.3) 

CL2  =  AIMAG(CLCD) 

IF  (INUCU.EO.O)  Go  TD  16u 

CALL  CDSI 

RETURN 

CONTINUE 

IF  (K^.E^-.NS) 

IF  (CDF.EQ.O. 

WRITE  (N^»90) 

GO  TO  80 

WRITE  (N^,90) 

CONSTRUCT  MACH 

^RITE  (N^,1^0) 

I  =  IMC(EM) 

I  =  IMACH(I) 

USE     PRINI     WIDTH    OF     U     FOR     f'ACH    UUMtiER     DIAGRAM 

MB    =    MM 

MC     =    MAXO(l,Me/IZ) 

MA    =    MC  +  MAXO(  1,MB-IZ*MC) 

WRITE  OUT  MACH  NUMBERS  AT  INFINITY 

WRITE  (N^,100)  (I,  L  »  MA,Mb,MC) 

DO  MACH  NUMBERS  oNE  LINE  AT  A  TIME 

J  =  NN-MC 

RSJ  =  R( J) *R( J) 

DO  5C  L  =  MA,Mb,MC 

U  >  {PHI(L+1*  J)-PHI(L-i»  J)  )«K{  J)*Dr.LlH-SI  (L  ) 

V  =  (PHI ( L* J+i)-PHl (L» J-1 ) )*LELR*RjJ   -CU(l) 

U  =  (U*U  +  V*V)  /Ff  ( L, J ) 

I  =  IMC(1ACH(0)) 

MN(L )  «  IMACH(  I  ) 

CONTINUE 

WKlTE  (Nif,10C)  (MN(L)^L  =  MA^hb^MC) 


GO  TO  c-^ 
)  GO  TD  70 
Eh;*CL2>C:i»CDw»TX,CDF,CD4 


EM^CLZ^C^^CD^ 
NUMBER  DIAGRAM 


03 «N  ro  The  eUDY 


120 


-bO 


85 


90 

100 

120 

130 
lAO 
1^0 


J  ■  J-MC 

IF  (J.GT.l)  GO  TO  ^0 

DO  THt  LINE  UHICH  IS  THt  JODY 

DO  60  L  =  MA,  Mfa,MC 

I  «  I  i1C(  MACHN(L)  ) 

f1N{L)  =  IKACH(I) 

wklTE  (l^'.^lOO)  (fN(L),L  =  ;^,A,rt,fX  ) 

IF  (ITYP.oE.A)  CALL  GKAFiC(CC) 

PET'JkN 

RNX  =  .  1*AINT  (RN*  l.E-t>) 

UPITE  (N^,i50)  Er>CL>  TC,Ci^,f<MX,CDF 

RLTUkN 

FGRMAT  (lHl2X3Hb^  =  Fb.^,^X3HCL=F7.'♦,4X3hC'1=F5.^,'^X^HCDW  =  F7.>,^AA'» 
1  ,F7.5,^X  3HCD»h7.b///  ) 

FORMAT  (3X,13CA1) 

FORMAT  (3H  M=  ,  F't .  3,  5  X  ,  iHC  L  =  ,  F  b  .  3^  b  X  ,  3  HC  Y  =  ,  F  ?  .  3>  6  X  ,  ^HT  /  C  =  , 
1  F^.3»  1^X,215) 

FORMAT  (^020) 

FORMAT  (IHO//) 

FORMAT     {lH0//7X3hFMa,F^.3f<tX3HCL=fF'5.^,HX<tHr/C  =  ,F't.3*'tX3HCM», 
1     F6.<i>'fX3HRN  =  ,h^.l>^X^HC^F  =  ,Ft.<./) 

END 


SUBR 
CQMP 
REAL 
COMM 
CJMM 

1  ,RP 

2  ,SI 

3  ,A'l 
<♦  »RP 

C  uMM 
1  ,  XA 
/C^ 
,  IK 
,NP 
t  SC 
t  IN 
DIME 
twUI 
DATA 
MUVfc 
CALL 
YOR 
PLOT 
CPF 
CCP 
CALL 
OU  1 
C(.P 


2 
3 

6 


DUTINE    GR 
LEX     ZP,ZU 

MACHN 
ON/FL/FLU 
CN  PHI  (16 
(31),RPP{ 
(162 ),PHI 
GOLD(  162) 
^(31  )»i-Pb 
ON  /A/  PI 
,  YA, Tt,DT 
,C5.,Ct>,C7 
,  JK,  IZ»  IT 
TS,LL,  I*L 
ALQ0»N6,& 
C#OFAC#GA 
NSIGN  CPX 
VALENCE  ( 
nL/l.t- 
THt  ORI& 
PLnT(2.0 
«  AMAX1(3 
CP    CukVt 

■  l./PF 

-    CPF*CPX 

PLllKSCF 

0    L     •    2»M 

■  AMINUb 


AFIC(CD) 
#SFAC»S1G 

XT<»»CL<»,lOw,  INtCD 

2,31),FP(162,31)*A(31),ti(31)*C(31),L/(31),b(31) 
31)»R(31),R3(31)*FI(31),AA{it2)/BB(it2)»CU(ic2) 
R(lo2)*XC  (lt)2),  YC(lb2)*FM(io2)/AkCL(lt2)*DSUM(ic2) 
,  XDLL)(lt2),YuLD(lbt;)>At<CJLj(1^2)*uEL[..LD(lc2) 
(31  ) 

,TP,kAL,b1,ALP,KN,PCH,XP,T:,CH0,L.PHl,CL*RCL*YK 
»DR*DELTH,DELR*RA*DCN*L)SN*RA^,tPSIL,OCRlT,Cl»C<i 
,  rtEr,bLTA,FbYM,XSEP>ibPM,TTLb(^),M,,N,MM,NN,NSP 
YP,MLDb,  li,NFC,f>CY,N«N,  N&»  IDIf.».N2.N3.N<».M  .  IXX 
SEP,M<»»Nb*»tPSl,NDbS»XLtN,SCALQl 
Ar'MA,NuPr,CSTAK,PbM,ObP#wlNF,TSTEH#ALuT 
M,Ku£i*»'LrSZ.OPL»^PU 
(  I  )  .>'ACHN(  1  )  »  T(o  ) 

CPX(  I  ), PHIk(  1  )  )     ,  (MACHN( 1  )» A(  1 )  ) 

o/     ,     PF/-.<,/    ,     SCF/ t>.U/,  YL'</'».  0/,  S  IZE  /  .iH/.  :>CJ/iuC./ 
IN     Two     INCMbi    OVbk     AiND     TwC     INChcS    UP 
,2.t>»-3) 

.5»  .t*Al,Nr(20.»EM-7.O)  ) 
AS     A    FUNCTUS    Uh     X 

(1) 

♦  XC(  l).Yai<»CCP,3) 

M 

.;>-YCR#CPF*CPx  (L  )  ) 


121 


10 


20 


200 


30 


^0 


220 


230 


CALL 
DRAW 
CALL 
CUMp 

CALL 
PLOT 
CALL 
DO  2 
CALL 
LABE 
ALPX 
TXT  = 
If  { 
IF(F 
XL=- 
**** 

IF(F 
IF  { 
TTLE 

TTLE 
TTLE 
TTLE 
bNCJ 
GCj  T 
ENCa 
GO  T 
LN«R 
ENCQ 
CALL 
*♦** 

ENCQ 

IF  (C 

CALL 

CALL 

CN  =  C 

SN  =  S 

READ 

IF  { 

PEWI 

READ 

IF  ( 

IF  ( 

READ 

READ 

TXT 

GO  T 

READ 

READ 

TXT 

CDNT 

NC  =  5 

IF(S 

TXT  = 

NC=»3 


PLOTtSCF 

AND  LABE 

CPAXIS(- 
UTE  AND  P 

SYMBOL  ( 

BODY 

PLOT (SCF 
0  L  «  2iM 

PLOT(SCF 
L  THE  PLQ 

=  RADIAL 
6HANALYSI 
EPSl.GT.O 
SYM.Gb.6. 
.9 

NON-ANSI 
SYM.GE.6. 
(NDES.LT. 

(1)  =  -^HV 

(2)  =  4HG 

(3)  =  4HC 
(^)  «  ^HG 
DE  {DC,2i 

0  ^0 

DE  (60, 19 
G  ^0 

N*l.E-6+, 
DE(60,190 
SYMdCLC- 
N0N-AN5I 
DE(60*170 
D't.LT.O) 
SYMB0L(X 
SYMB0L(X 
0(1) 

1  (1  ) 

AND  PLOT 
XP.Ei.O.  ) 
ND  M4 

(M^, 1^0) 
E0F(M4  )  .N 
NDES.GE.O 

(r^,i50) 

(M^,160) 
=  lOHbXPE 
C  230 
(M^,2^0) 
(M4, 160) 
6HINPU 
INUE 
9 

N  X  .  G  E  .  0  .  ) 
tHDESIGN 


*XC  (  L  )  ,.  YJR+CCF,2  ) 

L  THE  CP-AXiS 

.!?*YDy*l.-l./PF,7.t)-YaR,PF) 

LCT  CRITICAL  SPEED 

-.i),Y(DP+CPF*CPX(MM  +  l),2.*SIZF,i:>,0.»-l) 

♦XC( 1), SCF*YC (1  ),3) 

M 

*XC (L)>iCF*YC (L)*2) 

T 

P 

S 

.)     TXT     =     iOHART.     Vise. 

)     TXT=6hTHEuRY 

-    SEE     ^KlltbP     AT     tND»**+ 

)     GG    TO    30 

0)  .AND. (EPSl.LE.O.  )  )    GU    TL    2u0 

ISC 

us 

ESI 

N 

C,T)     TTLL,>'i,N,NCY,tPSl 

1 ,  T  )     T  T  L  L  ,  M  ,  N  ,  N  C  Y 


*T)     TTL£*^1*N»NCY,LN 

1.1^,-1.0*  SIZE^T,0.O6) 

-    SEE     ^RlTtUP    AT    END**** 

fj)     IXT,  Ei1>ALPX,CL,CD4 

ENC0DE(6  0^171,T)     TXT>LM,ALPX,CL.CD^ 

L*-1.35,SIZE,T/t .,60) 

L-. 10>-i. 35  +  . ti*SIZb,l.;j*SlZt>  !:>>&. ,-1) 


EXPtRIMEHTAL  DATA  IF  XP  li  NOT  ZERO 
GG  TO  130 

NP 
E.O)  GO  TO  130 
)  GO  TO  2  20 

EMX, ALPX,CLX*CDX*  SNX 

(CO(L),Si(L)*L  =  1»NP) 
R  R;  E  N  T 

TCX»0QAVE, YKX,SNX 
(CO(L)>SI (L) ,L  =  1,NP) 
T  CP 


GG  TO  50 


122 


50 


180 
130 


60 


70 


80 


82 


bNCU 

IF  { 

IF(N 

CALL 

CALL 

DO  1 

CCP 

IF  ( 

CALL 

CGNT 

IF  ( 

PLOT 

EX  = 

StT 

MX  = 

C0(  1 

SKI 

Du  b 

CD{L 

COCM 

SI  (L 

SI(^ 

DO  1 

LOOK 

IF  ( 

IF  ( 

IPEN 

CDMP 

Kl  = 

ZP  - 

CALL 

IF  ( 

FIND 

0 

SX  « 

ex  = 
FAG 
20  » 
DO  9 
ZP  * 
k  J  » 
OS  » 
IF  ( 
u  - 

V  ■ 
Q  - 
J  - 
SIG 
COMP 
SFAC 
SUM 
S  ■ 
OU  8 


NON- 
uE  ( 
CD^. 

Des. 

SYM 

3YM 

fO  L 

=  Yu 

CCP. 

SYM 

INUE 

ITYP 

THE 

1.- 

SIME 

M/2 

)  » 

)  = 

C  L 

♦  1  ) 
M-L  ) 
+  1) 
M-L  ) 
20  L 

FOR 

f  ACH 

M  A  C  H 

=  3 

OTE 

(MA 

CMP 

PLO 

IPEN 

THE 

MACH 

SI  ( 

C0( 

'     .5 

CMP 

C  J 

SFA 

R(  J 

0 

J  .FO 

(PHI 

(PHI 

(U*U 

SUkT 

•  CM 
UTE 

•  C 
UP  F 
-RP  ( 
<.  K 


ANSI 
60,17 
LT.O) 
GE.O) 
BLL(X 
ROL(  X 
-  1, 
R+CPF 
&T  .6  . 
BOL(S 

.EQ.5 

SOM 

EPSIL 

S  AND 

1. 
0. 

=  1»M 
=  C0( 

'    CO 
=  ClK 

=  -s 

=  2, 

SONI 

N(L). 

N(  L-i 

Z  AT 
ChN(L 
LX(XC 
T(SCF 

.E4.2 
SCNI 
M(L  ) 
L  )  ♦CN 
L)*C\ 

♦  DR 
LX  (  XC 

♦  1,  N 
C 

) 

.1  )  b 
(L*l, 
(  L,  J* 

♦  V*V) 
(u/(C 
PLX(R 
((  1-S 
EXP(E 
OURIE 
1  ) 

■  1»N 


-  SEE  WFITbUP  AT  END**** 

0,T)  TXT,  tMX,  ALPX^CLX^CC/X 
ENCODE (6u, 171, T)  lxr,EMX,ALPX,CLX,CDX 
ENCODE(oO,^i;0,T)  TXT,TCX,DQAVE,YRX 

L,-1.7,S12E,T,0.,60) 

L-.10,-1.7  +  .t)*SlZb,SIZE,NC,0.*-l) 

NP 

*SI(L) 

4)  GU  TC  180 

CF»CO(L),CCP,.b*SlZt,NC,0.,-l) 

)  GO  TO  122 

C  LINE 

COSINES  FOR  USE  IN  FUJkltR  StRIES 


L  )*GCN-SI( L)*DSN 

(L+1) 

L )*DSN*SI( L)*DCN 

I( L+1) 

M 

C  POINTS  JN  THE  BODY 

LT.  1.  )  GO  TO  110 

)  .Gt  .1,  )  GO  TO  80 

SONIC  LINE  ON  BODY 

)-l.)/(MAv,HN(L)-MACHN(L-l)) 

(L)*><l*(XC(L-l)-XC(L)),YC(L)*fil*(YC(L-l)-YC(L))) 

*PEAL(ZP),5CF*AIMAG(ZP),IPEN) 

)  GU  TO  12u 

C     LINE    ALONG     A    PAY 

+SN*CO(L ) 
-SK*SI(L) 

( L ) »  YC ( L  )  ) 


u    TO    82 

J)-»HI(L-l,J))'SJ*OfcLlH-SX 

i)-PHI(L,J-l)  )*CELk*RJ*RJ-CX 

/  F  F  (  L  .  J  ) 

1-C2*J) ) 

J*Ca(L),RJ*SI(L)) 

IGMA)** ( I-EPSIL) )SIG1A 

X»CLUG( (l.,U.  )-SIO)  ) /SIG 

(t     SEf>IES     TO    OBTAIN    CONJUGATE     OF 


FC 


123 


c 
c 
c 


•2.0,SCF*AIMAG(ZP  )),Z) 


OF  NEXT  PAGE 


LT  =  MOD( ( L-1 )*K»M) 

S  -  S+RJ*( AA(K  +  i)*SI (LT  +  1)-BB(K  +  1)*C0(LT+1  )  ) 

RJ  »  RJ*R(J) 

IF  (RJ.LT.TOL)  GO  TO  86 
8A  CONTINUE 

COMPUTE  THE  ARGUMENT  OF  DZ/DR 
86  SFAC  '    -SFAC*CMPLX(COS(S)»SIN(S)  )/CABS(SFAC) 

MULTIPLY  THE  ARGUMENT  dY  THE  MAGNITUDE  TO  OBTAIN  OZ/OR 

SFAC  =  SFAC*(CHD*SQRT(FP(L* J) ) )/(R{ J)*R( J) ) 

PERFORM  THE  INTEGRATION 

ZQ  »  ZQ+FAC*SFAC 

FAC  -  DR 

IF  (Q.LE.l.)  GO  TO  100 
90  CONTINUE 
100  ZQ  »  ZQ-.5*DR*SFAC 

ZP  =  ZQ-.5*DR*(SFAC+ZP) 

Rl  »  (Q-1.  )/(Q-CS) 

ZP  =  ZQ+R1*(ZP-ZQ) 

CALL    PLOT     (SCF*REAL(ZP),  AMAXK- 

GD  TO  120 
110  IPEN  «  2 

IF  (MACHN(L-l) .GE.l. )  GO  TO  70 
120  CONTINUE 

POSITION  PEN  AT  BEGINNING 
122  CALL  FRAME 

CALL  PL0T(-2.0,-2.5,-3) 

IF  ( (FSYM.NE.7.).0R. ( ITYP.EQ.6) )  RETURN 

PLOT  THE  BOUNDARY  LAYER  DISPLACEMENT 

MX  =  INDEXR  ( 0.*XC>M) 

CALL  PL0T(2.^ 1.5,-3) 

CALL  SYMB0L(1.36,-.6  5,^IZE,19HL0WER 

CALL  CPAXIS  (0.*0.>0.,^.>  l./SCD) 

PLOT  LOWER  SURFACE 

CALL  PLOT  (SCF*XC(1),SCD*DSUM(1)>3) 

DO  132  L  *  2, MX 
132  CALL  PLOT  ( SCF*XC ( L ) , SCD+OSUM ( L ) > 2 ) 

CALL  PL0T(0.*^.5>-3) 

CALL  SYMB0L(1.36/-.65,SIZE,19HUPPER 

CALL  CPAXIS  { 0.>0., 0.,4.*1./SCD) 

PLOT  UPPER  SURFACE 

CALL  PLOT  (SCF*XC(MX),SCD*DSUM(MX),3) 

DO  13^  L  -  MX,M 
134  CALL  PLOT  { SC F* XC ( L  +  1 ) * SCD^DSUM ( L  +  1 ) *  2 ) 

CALL  PLQT(10.,-6.^-3) 

RETURN 
140  FORMAT  (10X,I3) 
150  FORMAT  ( 3F6 . 3> F7  .  5, E9 . 1  ) 
160  FORMAT  (2F10.4) 

170  FORMAT  (A12*4H   M=F 4 . 3, 3X4HAL P = F 5 . 2, 3X 3HC L =, F 5 . 3 > 3 X 3HC D=> F5 . 4 ) 

171  FDRMAT( A12,4H   M > F4 . 3 , 3X4H ALP= F 5 . 2, 3X3hC L= » F5 . 3 , 2 X3HC D»F b . 4 ) 

190  F0RMAT(4A4,3X4HM*N=I3,1H*I2,3X4HNCY»I4,4X2HR»12,8H  MILLION) 

191  F0RMAT(4A4>3X4HM*N=I3,1H*I2*3X4HNCY=14,4X12HNQ  VISCOSITY) 

240  FORMAT   { F7 . 3 , 2 E 10 . 2, F 4 . 1 ) 

210  F0RMAT(4A4,3X4HM*N=I3,1H*I2,3X4HNCY=I4,4X,5HEPS1=,F5.3) 


SURFACE   DELS  ,0.,19) 


SURFACE   DELS  ,0.>19) 


124 


250  F0RMAT(Ai2*2X,'^HT/C  =  F5.3*2X,3HDQ  =  E8.2»2X,5HDPHI  =  E8,2) 
END 


C 
C 

c 
c 
c 
c 


10 


30 


<.0 


25 

20 


SU 
DR 
XD 
bO 

sc 

DR 

SC 

SI 

CA 

CA 

DR 

N 

S 

XH 

YH 

DO 

CA 

IF 

IF 

S 

CA 

Yh 

IF 

CA 

CA 

RE 

Dk 

CA 

CA 

CA 

YH 

DO 

S 

EN 

XH 

CA 

CA 

CA 

kfc 

FO 

FO 

EN 


BROUTI 

AWS  AN 

R,  YOR 

T  IS  T 

F  IS  A 

AW  THE 

F  NEGA 

ZE  =■  . 

LL  PLO 

LL  PLO 

AW  HAT 

«  1  +  IN 

=  -AIN 

=  XOR 

=  YOR 

10  I 

LL  SYM 

**NON- 

(SCF. 

(SCF. 

-  S  +  SC 

LL  SYM 

=  YH  + 

(SCF. 

LL  SYM 

LL  SYM 

TURN 

AW  THE 


LL 

LL 
LL 


PLO 

PLO 

SYM 

•  YOR 

^0  I 

■  .2«F 

CODE  ( 

■  YOR 

LL  SYM 

LL  SYM 

LL  SYM 

TUf^N 

RMAT  ( 

RMAT  ( 

D 


NE  CP 
D  LAB 
IS  TH 
HE  LE 
SCAL 
LINE 
TIVE 
12-SI 
T  (XQ 
T  (XC 
CH  MA 
T(BOT 
T(BOT 
-(  3.* 
-AINT 

-  1,N 
BDL  ( 
ANSI 
GT.O. 
LE  .0. 
F 

BDL  ( 
1  . 

GT.O. 
bOL  (X 
BOL(X 

X-AX 
T  (XQ 
T  (XC 
BOL  ( 
-BOT- 

-  1»5 
LOAT( 
10»20 
♦  FLOA 
BOL  ( 
BOL  ( 
BOL  ( 

F<..3 
F<,.1) 


AXlS(XOP>YORfBOT/TOP*SCF) 

ELS  THE  CP  AXIS 

E  LOCATION  OF  THE  ORIGIN  OF  THE  AXIS 

NGTH  OF  THE  AXIS  BELOw  THE  ORIGIN 

E  FACTOR  USED  FOP  LABELING 

FDR    THE    AXIS 
FOR    CP    AXIS    AND    POSITIVE    FOR    DELS    AXIS 
GN( .02*SCF) 
R»  YijP  +  T0P,3  ) 
R,Y0R-a0T,2) 

RKS     AND    LABELS    ONE     INCH    APART 
)+INT(TQP) 
)*SCF    +1.E-12 
SIZE)/  .7 
(BOT) 

XOR* YH,SIZE*15,0.,-1) 

-   SEE  WRITEUP  AT  THE  END**** 

)  ENCODE  (10,25, A)  S 

)  ENCODE  (10,20, A)  S 

XH,YH,SIZE,A,0.,A) 

)  GO  TO  30 

0R  +  .l,Y(jRf2.5,.l'.,lHC,0.,l) 

0P+.25,Y0R+2.3B,.1^,1HP,0.,1) 

IS 

R,YOR-BOT, 3) 

R+5.0, Y0R-B0T,2) 

X0R*5.5,Y0k-.07,.l<.,lHX,0.,l) 

SIZE-SIZE 

I) 

,  A  )  S 

T(I  )-SIZ£-SiZE 

XH,  YH,  SIZE,  A,  0.,  <.) 

XDR*FL0AT{I),YGR-B0T,SIZE,15,90.,-1) 

XGR*.25,Y0R*3.0,.l<.»'tHDbLS,0.,<.) 


125 


SUBROUTINE  GGPLOT  (NHN) 


■■■  '  6E  ktPLACEO  BY  £NY  kGjTINl  wHICh  INSTkoCT:) 
A  PLOT 


C       INITIATE  PLOT 

C      THIS  SUBROUTINE  SHOULD 
C      THE  SYSTEM  TC  INITIATE 

IF  (KRN.GT.IOOO)  GO  TO  tjO 

CALL  PL0TS(6C0^26HJfcPF  MCFAbUEN*  FOLDER  3ZiO) 

RETURN 

CALL    PL0TSBL(6C0,26HjEFF    fICFADDfcN,     POLLER    3210) 

KETUHN 

ENO 


50 


2 

3 

5 
6 


SUBROUTINE  AIRFDL 
C      READS  IN  DATA  FOR  AlrFJiL 
C      FUNCTION  EY  COMPUTING  FOUR 
C       IF  ONLY  X»Y  COCkDINATtS  AR 

COMMON  PH1(162»31),FP (i62» 

1  *RP(31)^RPP( 31)^R(3i ),RS( 

2  ,SI  (162),  PHIR(162)f  Xv,{  lb2 

3  *ANGOLD( 162) ,XGLD{io2)» YO 
't  *RP^(31  )*RP5  (31) 

C0M.1UN  /A/  PI,TP^  RAD*  tM>  AL 
1  ,XA,YA,TE,DT,DR*DELTH.DEL 
^Ct^C^/Cb^CT^BETfbETA^FiY 
,IK*JK,IZ>ITYP*MGDE*IS>NF 
>NPTSfLL/IfLSEP»M^,NEW,EP 
*SCALQ0»N6»GAMMA,NQPT,CST 
>INC»QFAC*GAM,KDES»PlTSZ» 

DIMENSION  XX{l)>YY(l)iU(l) 
1  ,DS{1),SS( 1) *CX(1)#SX(1), 

EQUIVALENCb( XXd ) »FP(1,3  ) 

1  (V (I  )*FP(l,7)  )* (  A(l)*rP(  I 

2  (1*13)  ),   (TH( l),FP(l*13)  ), 

3  (SS(l)*FP(l#21))*(CX(i),F 
'i    FP(  1»27)  ),{!(  1),FP(1,29)  ) 

SU(Q2)  =  C2*Q2 

SM00TH(Q1,Q2» 03,Q^)  =  Q2+S 

DIS(Cl)  =  (Ql-ERR )*( (Ul-tR 

DATA  T0L*NT* ISYM>C0NST, VAL 

DATA  0XDS1*DXDS2»DYDS1*0Y0 

NMP  IS  THE  NUMcEk  OF  POINT 

LC  «  NFC 

NMP  =  2*LC 

MC  =  NMP  +  1 

PILC  =  PI/FLOAT(LC) 

IF  (FSYM.GE.6.  )  GO  TO  150 

WRITE  (NA,^70) 

REWIND  N3 

READ  (N3.^10)  TITLE 

IF  (FSYM.GE.3.)  GO  TO  100 


AND  NAKES  I 
UP  CDEFFIC 
E  PRESCRIBE 
31),A( 31), b 
31  )f PI(3i)  , 
),YC(162),F 
LD{ 162), ARC 


P,kN, 
R,RA, 
M,xSE 
CNCY 
S 1 ,  N  D 
AR,RE 
UPL,0 
,  V(l) 
QSP  (  1 
),  (  YY 
,9)  ), 
(TT(1 
P(l,2 


PCH, XP 
DCN, OS 
P,SEPM 
,NRK, N 
ES,XLE 
M, DEP, 
PU 
, U(l  ), 

),TirL 

( 1), FP 
(SP(1  ) 
),FP(1 
3)  ),  (S 


NITIAL  ^^UESS  FOR  MAPPiNu 

lEiUS 

D  SMOOTHING  IS  DONE 

(3i),C(  J1),U(  31),E(  :ii  ) 

AA{ 162), bb( 162 ),CC(162) 

M(162),ARCl(16  2),LSUM(162) 

CLD(162),DELDLD( 162) 

,TC,CHU, DPHI,CL,kCL,YK 

N,KA^,EPSIL»CCR1T,C1,C2 

,  TT  LE (^ ), M, N, MM,NN,NiP 

G,IDIM,N2,N3,ti^,NT,lXX 

N,SCAL01 

OINF, TSTEP, XLLT 

SP(l),CiKC(  1), Tri(l),lT{l) 

E(15),Z(1) 

(1»5  )  ),  (U(l  ),FP(1,1  )  ), 

,FP{  1,11)  ),  (LlPC  (1  ),hP 

,17)  ),  (DS(1),FP(1,19) ), 

X(  1),FP(1,25)  ),  (QSRd  ), 


C  (  S  I.  (  S  J  {  J  -^  ) 
R)*(1.'1-EkR) 
/.^E-7,999, 
S2/A+0./  , 
S  IN  CIRCLE 


)  )*.25*(Ql-J2-i.2+t;3) 
+COMST) 
0,  .2,4HRUN  / 
XT/-1./ 
PLANE  FDR  FOURIER  StRItS 


126 


^0 


50 


100 


no 

12C 
130 


1<.0 


150 
160 

170 


READ  IN  C 
EPSIL  =  2 
XX(1 )  =  C 
NL  »  2 
PEWIND  N3 
PEAO  (N3» 
IMC  =  MOD 
ICLl  =  .10 
ICL2  »  MO 
irCl  =  MJ 
ITC2  = 
EfNCOCE 
MODE  = 
IF  ( N  R  N  .  L 
DO  40  L  = 
READ  (N3* 
****CHECK 
I(-  (ECF(N 
IF  ( AX(L  ) 
CONTINUE 
mIRFDIL  H 
NT  =  L-1 
NPN  «  IA6 
Gu  TC  IbO 
READ  IN  A 


00«DINATES  AS  PkJL'UCEC  BY  PRJGRAMS  D  AND  F 


MO 
(4 
0 


PEAD 
PEAD 
M  » 
NL  » 


(N3, 
(N3> 

PNU  + 
FNL 


DO  110  1 
READ  (N3, 
Kb  AD  (N3» 
DO  120  I 
J  ■  NL+1- 
RcAD  (N3» 
CO  130  J 
TTLE(J)  « 

IF    (f:>yi. 

DO  140  L 
TH( L  )  «  X 
XX(L )  »  U 
YY(L  )  ■  V 
GG  TD  l'?b 
NO  PERIOD 
kPSiL  «  0 
PtFlNE  SL 
IF  (  ( F  S  Y  M 
DL  iro  I 
Th( I  )  •  0 
mf  ■  1 
Gu  TO  200 
COMPUTE  S 
TH( 1)  ■  A 
OSR(i)     > 


510)     EM*Cl* lY, TC»NkN 

(  INT (100.*EM  +  .5  ),100) 

D( INT(CL+.05)* 10) 

D(  INT(l(j.*CL  +  .3)>lG) 

D(  IKT(10.*TC  +  .0t-),10) 

DC INT( lOU.+TC+.S ),10) 

0,53  0,TTLt)     1.1CWCL1,1CL2,ITC1.ITC2 

T.O)  FSYM«2. 

1*999 
500)  U( L), V (L)»XX ( L) ,YY( L) ,FAC 

FOP  ENu  uF  FILE*^** 
3) .Nb.O)  GO  TO  30 
.  L  T  .  X  X  (  N  L  )  )  N  L  =  L 

AS  bEEN  EXTENDED  IN  PPOGRAi  0 

S( NFN) 

IRFLjIL    DATA     FK0:1    CARDS 
420)     FNU>FM»£PSIL 
470) 
FNL-i. 

=  NLfNT 

420)  U( i  ). V (  I) »  XX( I  )  , YY (  I  ) 

470) 

«  1»NL 

I 

420)  U(J)»V(J)»XA(J),YY(J) 

«  1*4 

riTLEC J  ) 
LE.4.)  GO  TO  150 
=  If  NT 
X( L) /kAD 
(L  ) 
(L) 

IN     THE     STFEaI     FU'iCTllJN 

• 

UPES    SL    Thai    AkC    LENGTHS    CAN    EE    CGMPUTEj    TC    Flt<ST    ukLER 
.EO.l  .  )  .Gh  .  (  h  jYM.K..  3.  )  )     GG     TC    17C 


LJPES    F«(L)h    VELOCITIES 

TAN( V( l)/U(l )  ) 

L(l)  ♦UU  )*V(  1)*V(  i  ) 


127 


190 
195 


200 


210 


220 


230 


232 


240 


322 


DO  190  I  ■  2, NT 

CHGUSE  NEAREST  BRANCH  FOR  Thfc  ARCTANbENT 

DTH  =  ATAN((U(I-l)*V(i)-u(I)*V(I-l))/(0(I-l)*U(I)+V(l-l)*V(i))) 

TH(  I  )  =  TH(  I-l  )+DTH 

QSR(  I)  =  U(I ) ♦U( 1)+V(  I) ♦VC  I) 

IF  (EPSIL.GT.I.)  EP3IL  -  (TH(1)-(FI+TH(NT)))/PI 

IF  {FSYM.GT.5.)  EPSIL  =  ( TH { 1 )  +  TH ( 2 ) -Th ( NT ) -TH ( NT-1  )  ) / T P-i . 

CUMPLTE  AkC  LENGTH  Tl  FQUkTH  CRUEK  ACCLRACY 

SP(1)  =  0. 

DO  210  I  «  2, NT 

DUM  =  AMAXK  .  lE-20,  .5*A6S(Th(  I)-TH{  I-l)  )  ) 

OX  =  XX(  1 )-XX(  I-l) 

DY  =  YY(  I )-YY ( I-l  ) 

SPd)  -  SP  (  I-l) +SORT  (DX*DX+OY*DY)*uUr/S  IN(DUM) 

ARC  =  SP(NT) 

SN  =  2. /ARC 

SCALE  =  .25*ARC 

tfc  »  .5*(1.-EPSIL) 

DO  220  L  =  1>NT 

SSCL)  =  ACaS( l.-SN+SP (L) ) 

SS(NT)  =  PI 

IF  (  ISYM.NE.O)  CO  TO  350 

CALL  SPLIF  (NT,SS* TH,U* V> W*3»C.>3,0.  ) 

IF  (FSYM.GT.b.  )  GO  TO  232 

InRITL  (N4^410)  TITLE^  VAL^NRN 

IF  (N4.Nt.N2)  WRITE  (N2,41C)  T I TL E , V A L, NRN 

PRINT  OUT  DATA  ON  THE  AlKFOlL 

WRITE     (N4,430) 

DO    230    L    =    l^NT 

VAL    =    TH(L)*RAD 

SUii     =-SN*U(L  )/AMAXl(  .iE-5,SIN(SS(L  )  )  ) 

IF     (  (L.EO.l) .OR. (L.EC.NT) )     SUN    =    V  I L ) ♦$ I GN ( S N, F LuAT ( L-2 ) ) 

»,RITE     (N4,4e0)     XX(  DiYY  (L  ),SP(L)*VaL*  SLM,V(L)^  rt  (L) 

WRITE     (N4*440) 

MAKE  INITIAL  GUESS  d F  ARC  LENGTH  AS  A  FUNCTluN  uF  CIkCLE  ANbLE 

DX  =  (XX(NT  )-XX ( 1 )  ) /TP 

DY  =  ( YY(NT)-YY(1 ) )/TP 

DO  240  I  =  1*MC 

ANGL  =  FLOAT(  I-l) +PILC 

CIRC(I)  =  ANGL 

CX(I)  «  CDS( ANGL ) 

SX(I)  =  SIN(ANGL) 

YY( I )  =  1. 

IF  (EE.NE.O.)  YY(I)  =  ( 2 .-2 . ♦C X ( I ) ) **EE 

FAC  -  SIGN(  l.+CX  (I  ),  FLLIAT(LC-I)  ) 

SPd)  =  ACQS(.5*FAC) 

SPd^C)  =>  PI 

CIRC(MC)  =  TP 

IF  (FSYM.LT.b.)  GO  lU  244 

SCALE  »  AkC/ARCL  (  f^M) 

SN1=2./ ARCLCMM) 

DO  322  1=1, M 

ARCL(I)=ACGS(l.-SNl*Ar<CL(l)) 
ARCL  (fiM)  "PI 
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242 


250 


260 


270 


290 


29b 


?9Q 
300 


DO  Z^^Z  L 
Z(L)  »  1^ 
CALL  SPL 
CALL  INT 
00  2  4i/  L 
Be{L  )  - 
AA(L)  = 
UG  AT  MO 
DO  320  K 
CALL  INF 
DO  2i-0  I 
TT(I  )  = 
TT{  1  )  =  o 
ENSUkE  C 
OUM  =  0. 
SUM  »  0. 
FAC  =  0. 
DO  260  L 
DLM  «  DU 
SUM  «  SU 
FAC  =  FA 
DUM  =  OU 
DA  =  1.- 
DB  -  (DY 
DD  2  70  L 
TT  (  L  )  = 
FIND  THE 
CALL  CON 
DG  290  I 
SUM  =  OS 
DS(I)  = 
LSC1C)  ' 
Z(l)  »0. 
VAL»  .5*P 
VAL1»PIL 
2(2) »VAL 
Ni»NK  +  l 
DO  29b  J 
2(  J)«Z( J 
IK  J.EQ. 
Z(J*I  )«Z 
CONTINUE 
Z(MC)«0. 
Z(MC-1 )» 
M  I-SFC- 
DO  299  J 
MCJ-^C-J 
Z(MCJ)  -Z 
Z (MCJ-1 ) 
CONTINUE 
Z1-Z(MC- 
Z1-Z(NI» 
bu  3C1  J 
OSl-Z (NF 


=  1,MM 
LGAT( L-1 
IF  (MM, 2 
PL  (NMP> 

=  1»  LC 
CX(2*L-1 
-SX(2*L- 
ST  100  I 
=  1.1 
PL { NMP, S 

=  1>  NMP 
T  T  (  I )  ♦  .  t 
*( TH(  1)  + 
LDSURE 


)*0T 

,  A(.CL*Ca,SI,PhlR>3,0.,3,0.) 

CII-C,SP»Z*AkCL^CD*SI>PhlR) 

) 
1) 

TtRATlJNS  TO  FIND  THE  FOUf<lth{  CUtFFlCIENTS 

OC 

P»  TT, SS, TH,U, V, w) 

«(CIr<C(I)*EPSIL*{CIRC(l)-Pl)) 
TH(NT)+PI ) 


=  1,.MMP 
M  -TT  (L  ) 
M-TT (  L  )♦ 
C*TT(  D* 
M/FLGAT( 
EFS1L-(D 
♦SIN (DUM 

=  1,NMP 
TT( L) +DA 

C0NJU6A 
J (NMP, TT 

«  1,NMP 
(I) 
YY(  I) ♦EX 

d:>(1  ) 


CX(L  ) 

SX(L) 

NMP  ) 

X  +  SIN(JUM)-t-DY+COb(DUM))/SCALE-FAC/FLCAT(LC) 

)-DX+CJS{OUM)) /SCALE-SUM /FLOAT(LC) 

♦SX(L  )-Db  +  CX(  L) 
TE  FUNCTION  US 
, CS, XX, BB, aA) 


P( SUN) 


ILC 

C/3. 

♦ (DS( I  )*DS(2 ) ) 


*3,NI,2 
-?  )*VALl 
Nl  )  GO  T 
(J  )*VAL^ 


♦(DS(J-2)+<t.^Dl>(J-l)*DS(J)) 

0  29b 

(CS ( J) *Ci{ J+I ) ) 


VAL^( OS(MC) ♦Lj(^C-l ) ) 

2 

•  2 , N II , 2 


(rCJ*2)  ♦ 
•Z{MCJ  )♦ 


VALI^(0S(MCJ*2)*<..»DS(MCJ*1)*DS(MCJ)) 
V  A  L  ♦  (  U  i  (  M  C  J  )  ♦  D  S  (  ",  C  J  - 1  )  ) 


NlI)*VALi*(05{MC-NiI)*'..«JS(rtC-Nil-l)*DS(MC-Nll-^)) 

1)-Z1 

•3,NI,2 

C*J  )-Z (KFC*J-i  ) 


129 


303 
301 


310 

320 
330 


SA't 


341 


340 
342 

BtjO 


355 


360 


Z(NF 
IM  J 

Z1  =  Z 

CGNT 

2(  NF 

CONT 

SCAL 

EkR 

OD  3 

VAL 

EkR 

SP(  I 

IF  ( 

IF  ( 

CONT 

WRIT 

CALL 

AA(1 

AA(2 

BB(2 

IF  ( 

WRIT 

IF  ( 

DO  3 

Z(L) 

CALL 

CALL 

CALL 

CALL 

DO  4 

IF  ( 

IF  ( 

-RIT 

DO  3 

WRIT 

CALL 

RfcTU 

IF  { 

DXDS 

DXDS 

DYOS 

DYDS 

CALL 

CALL 

IF  ( 

LC  = 

tPR 

DUM 

FAC 

DO  3 

CIRC 

CALL 

CALL 

SX(M 


C  +  J- 

.EQ. 

(NFC 

INUF 

C+J) 

INUE 

E  = 

=  0. 

10  I 

=  AC 

=  AM 

)  = 

FSYM 

ERR. 

INUE 

E  (N 

FQU 

)  = 

)  - 

)  = 

FSYM 

E  (N 

(FSY 

44  L 

=  F 

SPL 

INT 

SPL 

INT 

L  = 

A(L) 

I  Z.N 

E  (N 

'♦O  L 

t  (N 

,"^AP 

FN 

FSYM 

1  = 

2  = 

1  = 

2  = 
SPL 
SPL 

IS.L 

PI/ 

=  SS 

=  01 

=  PI 

60  L 
(L) 

INT 

INT 
C)  = 


l)=Z(NFC+J-2)-Zl 
NI)  GO  TO  303 
■t•J+l)-Z(^^FC  +  J) 

=Z(NFC+J-1)-DS1 

ARC/ZCIC  ) 

»  l^NMP 
0S(1.-2.*Z(I) /Z(MC ) ) 
AXK  LRR,  ABS{  SP(  I)-VAL)  ) 
VAL 

.LE.5.)  WRITE  (N4,490)  tRR,0A,D8 
LT.TCL)  GD  TL  33u 


4,  450 
CF  (N^: 
AkC 
l.-EP 
(-DX* 
.&T.5 
4,460 
M  .  N  E  . 
=  1, 
L  0  A  T  ( 
IF(MC 
PL(Mh 
IF  (N 
?L(Mh 

.LE.O 
t.i20 
4,540 
=  1, 
4,490 


) 

P, TT,CX, db>  AA) 

SIL-(DX*SlN(BB(l))+Of*CCS('33(l)))/SCAL£ 

CGS(bd(l))+DY*SIN(bB{i)))/SCALE 

.)  GC  TO  342 

)  EPSIL,  .iMP 

1.).ANC.(FSYM.NE.3.))  GO  TO  ShI 

L-1)*DT 

,ClRC,5P,U,V,w,3,0.*3,0.) 
,Z,DS,CIkC,5P,U, V, w) 
T,5S,Qik,J,V,w,l,0.,l,0.) 
,DS,  A,SS,iSR,U,  V,  W) 

.  )  A( L)  =  0. 

)  GG  TO  342 

) 

NFC 

)  AA(L),:j  i(L  ) 


.LE.5  .)  GG  TO  355 

(XX(2)-XA (1 )  )/jS(2) 

(XX(NT)-XX(NT-i))/(SS(ra)-SS(NT-l)) 

( YY(2)-YY(  1)  )/5S(2  ) 

(YY(NT)-YY(,\T-i))/(SS(NT)-S:.(.NT-l)) 

IF(NT,SS,XX,G,SP,W,l,UXDSl,l,DXiJS2) 

lF(NT,SS,YY,V,rT,DS,l,DYDSi,l,[:YJS2) 

T.C)  GO  TO  397 

FLOAT(N,'<P) 

(NL  ) 

S(0.) 

/{DIS(PI)-ijUM) 

=  1,MC 
=  FAC*  (LIS  (F  LJAT  (L-1  )*DC  )-[)Ji-1) 
PL(NNP,CIPC»SX,3S,XA,U,SP,w) 
PL{NMP,C1RC,CX.S:>*YY,V,TT,US) 

XX(KT  ) 


130 


370 


3S0 


39Q 
395 


347 


410 

430 

440 
450 
460 


470 
4^0 

490 

500 
t>10 
"jZO 
530 
540 


CXCMC  ) 
SFAC  = 
XX^^L  = 
nu  370 
CX(L  )  » 
SX(L  )  = 
XX(L  )  = 
YY( L  )  = 
WKiTt   ( 
IF  (N2. 
IF(  IS.E 
DG   IS 
DC  390 
DG  3oC 
XX  (L  )  = 
YY(L)  = 
DG  390 
SX(L  )  » 
CX(L)  = 
NT  =  MC 
CALL  SP 
CALL  SP 
ISYM  . 
IF  (FSY 
0(1)  = 
V(l)  = 
U(NT  )  « 
V(NT)  = 
GC  TT  1 
FOPMAT 
FORMAT 
FbR.1AT 
1  , ^X,  10 
FGRi-lAT 
FORMAT 
FUR'^AT 
1  50H  -( 
242Hw( SI 
3  F5.3»2 
FORMAT 
FORMAT 
FURMAT 
♦♦♦♦CHA 
FURMAT 
FORMAT 
FORI  AT 
FUR.'1AT( 
FURMAl 
END 


=  Y  Y { ^H ) 

l./(XX(r4T)-XX(NL)) 
XX( NL) 
L  =  IfMC 

SFAC*CX(L) 

SFAC*  ( SX(  L)-XXNL  ) 

S>  (  L) 

CX  (L  ) 
N4,p20)  is 

NE.N4)  ^RITE  (N2,:>20)  IS 
Q.U)  GG  TU  395 

SMOOTHING  ITb-^ATlJNS 
K  =  1,  IS 
L  '  2fNMP 

SMO0TH(5X(L-i)»SX(L),SXlL+l)/SX(L)) 

SMnOTH(CX(L-l)»CX(L),CX(L+l),S>(L)) 
L  =  2,N.^P 

XX(L) 

YY{L) 


LIF  (N 
L  i  F  (  rj 
0 

M  .  G  T  . 
SP  (1  ) 
TT  (  i  ) 
SP(N 
TT(N 
70 

(1X16 
(5FI0 
(  35HO 
HAFC 
(  Ihl, 
(  32H 
(  34H0 
1/SIG 
3MA) 
OX,  14 
(IHl  ) 
{F12. 
(  3t  15 
NGb  ( 
(4020 
(  3X,F 
(  lOHO 
4HA1P 
(  //  7X 


T»CIPC.XX,0,SP,W,  1,0.,1»G.5 
T,CIPC,YY,V,TT,DS,1,0.,1,0.) 

5. )  GG  TO  170 


T  ) 
T) 

A4,  I 
.  7) 

AIPF 
LFnG 
4X,  3 
FGUt' 
MAHP 
.1A*» 

=   su 

,25H 

6,2F 

.b) 

4G20 

) 

4.3» 

THb»» 

F#6X 

4H4( 


4  ) 


OIL  COORDINATES  AND  C  OR  V  AT  UR  t  S  /  IhO,  6X,  IhX,  1 «» A  IhY 
TH,7X3hANG,bX5hKAPPA*lCX,2hKP,llX,3hKPP//) 
riEKK,l<.X,2H0A*14X,2HLB//) 
lER  SE-<ItS  DID  NCT  CONVc-^Gt) 

ING  Tj  The  INSIDE  OF  A  CU  C  L  £  /  /  3  x  1 1  HD  Z /C  S  I  o.lA  » 
2)»(l-jIGMA)**(l-fcPSlL)*(LxP(V.(SlGM.A))//3A» 
ri(  (A(M)-I*a(N)  )»iIG.^A**  (N-l)  )//3X,7HcPSiL  = 
POINTS  AROONC  THE  CIRCLE  ) 

14.6,Fi't  ,3»f  14.4/2L14  .3) 

)  TO  (20A4)  ON  IBM  3cO**»» 

dX.F5.J,dX,Fi.J»10X»F4.3.1'.X.I5) 

E  Ai;t»I4,2bh  SMOOTHING  irEKAIiON:.  USfcU  /) 

#3H0lL,  7X.  I2#  l»i-»  II.OX,  I  U  1H-,2I1  J 

N), U  <4HB(N) //  ) 
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c 
c 


SUBROUTINE  MAP 
SUM  UP  FOURIER 
COMPLEX  TT^TMP 
COMMON  PHI(162*31)^ 

1  ,RP(31)>RPP( 31)^R( 

2  ,SI(162),PHIR(162) 

3  , ANG0LD(162) ,XCLD( 
^  ,RP^(31 )>RP5(31) 

COMMON  /A/  PI,TP>RA 

1  ,XA,YA,TE*DT>DR>DE 

2  *C^*C5*C6*C7*BET,B 

3  *  IK, JK,  IZ,  ITYP^MQD 
^  ,NPTS,LL,I*LSEP,M^ 

5  ,SCALQO» N6»GAMMA,N 

6  ,INC*QFAC*GAM,KDES 
♦***CHANGE  TO  l.E-6 
DATA  P0WrTDL/-12.»l 
NOTE  THAT  THE  SQUAR 
MX  «  M/2 

SET  THE  SINES  AND  C 
CD(1)  »  1. 
SKI)  »  0. 
DO  5  L  =  1,MX 
COCL+l)  »  CO(L)*DCN 
CO(MM-L)  =  C0(L+1) 
SI(L+1)  =  CD(L)*DSN 
5  SKMM-L)  =  -SI  (L  +  1) 
SET  MAPPING  MODULUS 
DO  10  J  «  1,N 
FP  (1»J)  =  l.+R(J)* 
DO  10  L  =  1*MX 
10  FP(L  +  1*J )  «  1  .+R ( J) 
IF  (EPSIL.EQ.O.)  GO 
ADJUST  IF  THERE  IS 


20 


30 


35 


SERIES  TO  OBTAIN  MAPPING  FUNCTION 


FP(i62,31)*A(31)>B(31),C(31),D(3  1),t(31) 
31),RS(31)*PI(31)»AA{162),BB(162),C0{1&2) 
, XC(162),YC{162),FM(162),ARCL(162),DSUM(162) 
162),YaLD(16  2),ARC0LD(162),DEL0LD(lfa2) 

D,EM,ALP,RN,PCH,XPfTC,CHD,DPHI,CL»RCL,YR 

LTH,DELR>RA*DCN,DSN*RA^,£PSIL,QCRlTfCi#C2 

ETA^FSYMiXSEPfSEPMjTTLECtJ^M^N^MM^NNiNSP 

E,IS,NFCfNCY,NRN,NG,IDIM,N2,N3,N4,NT,IXX 

, NEW*EPS1*NDES,XLEN, SCALQI 

QPT»CSTAR,REM>DEP>QINF>TSTEP#XOUT 

,PLTSZ»QPL>QPU 

FOR  SINGLE  PRECISION  IBM  360**** 
O.E-12/ 
E  OF  THE  MAPPING  MODULUS  IS  BEING  COMPUTED 

OSINES 


-SI(L)*DSN 

+SI{L)*DCN 

FOR  CUSP  AT  THE  TAIL 

(R( J)-2. ) 

*(R( J)-2.*C0(L+1) ) 

TO  30 
AN  ANGLE  AT  THE  TAIL 


DO  20  J  = 
FP(1>J)  = 
DO  20  L  « 
FP(L+1>J) 


1,N 

FP(1, J)**(1.-EPSIL) 

l^MX 

»  FP(L+1* 


J)**{1.-EPSIL) 

UTIQN  FROM  FOURIER  SERIES 


NOW  COMPUTE  CONTRIB 

DO  50  J  =  1>N 

NFCX  .  MIN0(NFC*1+INT(P0W/AL0G10(R( J )-TOL) ) ) 

RJ  ^  2.«R(J) 

K  =  NFCX 

S  =  AA(K+1) 

S  -  R{  J)*S+AA(K) 

K  s  K-1 

IF  (K.GT.l)  GO  TO  35 

FP(1,  J  )  =  FPd,  J  )*EXP(S*RJ  ) 

DO  50  L  «  1>MX 

K  »  NFCX 

■-X  »  K*L 

LT  =  MOD{LX,M ) 

S  »  AA(K+1)*C0(LT+1) 

Q  =  BB{K+1)*SI(LT+1) 
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^0  LX  »  LX-L 
LT  =  MQD(L 
S  =  P( J )*S 
Q  =  R ( J  )*& 
K  »  K-1 
IF  (K.GT.l 
DUM  =  FP(L 
FP( Mr-L, J  ) 

50     FP(L+1>  J  ) 
DO    6;>    L    = 
S    =    PI-B6( 
DO    60    K    = 
LT     «    MQD( ( 

60  S  =  S+AA(K 
ANG  =  FL'JA 
FP(L.NN  )  = 

65  FM(L)  =  3- 
FM(MM)  =  F 
DC  7C  J  = 
FP(."ir,J)  = 

70  FP( MM+1» J ) 
COMPUTE  Ak 
XMIN  =  0. 
Y  K I  N  =  0  . 
YMAX  =  0. 
S  -  -SQKT( 
TMP  =  CMPL 
DO  80  L  = 
Q  «  SQRT(F 
S  »  S  +  Q 
ARCL(L)  = 
S  =  S  +  0 
TT  =  CMPLX 
Th'P  »  TMP  + 
XC (L )  =  Pt 
YC(L )  =  Al 
XMIN  =  AMI 
YMIN  ■  AMI 
YMAX  »  AMA 
TMP  =  TMP* 

80  CONTINUE 
ChD  «  1./ ( 
TC  -  (YMAX 
DO  <J0  L  = 
AkCL (L )  = 
XC ( L  )  =  CH 

90  YC  (L  )  -  CH 
CHD  '  CHO/ 
IF  (NOES.& 
IF  {AaS(FS 
ANGO«  -AM 
WKITt  (N<.» 
IF  (N2.NE. 
n  (MOOE.fc 


X,M) 

♦AA(K)*CO( LT+1 ) 
+  BB  (K )*SI ( LT  +  1  ) 


)  G 
+  1* 

»  F 

1/M 

1) 

1»N 

L-1 

+  1) 

T(  L 

1. 
.5* 
M(  1 
1>N 

FP 

C  L 


G  TO  ^0 

J) 

EXP (kJ* (S-o) )*DUM 

XP(PJ*{S+C) )*DUM 


FC 

)*K>  M) 

*SnLT  +  l)-bD(K  +  l)*CG(LT  +  l) 

-1)*DT 


( ANG+EPSIL*(ANG-PI ) ) 

)-( l.+tPSIL)*PI 

h 

(i,  J  ) 

FP(2> J ) 

tNGTH  AND  BOOY  FPCM 


THE  MAPPING  BY  INTEGRATION 


FP(  1»1)  ) 

X{S*C0S(FM(1)),S*S1N(FM(1))) 
1,MM 
P(L,1)  ) 


(0*COS(FM(L))»Q*SIN(FM(L))) 

TT 

A  L (  TMP) 

MAG( T^?) 

Nl (XMIN, REAL ( TMP  )  ) 

NK  YMIN,  Al  MAG  (  TMP  )  ) 

Xl(  YMAX, AIMAGCTMP  )  ) 

TT 

.5*XC(MM)-X^IN) 
-YM  IN)«CHD 
1,MM 

CHD*ARCL( L) 
U* ( XC (L )-XMlN) 

D^rciL ) 

(.5»0T) 

E.C)     RETURN 

YM) .GT.5 .  )    GJ    TO    100 

♦tibd  ) 

120)     TC»ANGJ 

N<.)     ^RlTfc     (N^,120)     TC#ANG0 

Q.O)     ALP     »     (  1  .  ♦^I  T  )  ♦CL/(o . ♦?  I*CH^) 


eR(  1 ) 
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100  CALL  casi 

RETURN 
120  FORMAT  (32H0THE  THICKNESS  TU  CHDRO    RATIU 
1  17H  UF  ZERO  LIFT  IS  ,Fo.3,3H  LEGRbES) 
END 


IS  ,F6.^//loH  THL  ANGLE 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


10 


20 


30 


^0 


KN 
VN 


50 


SUBRDUT 
SPLINE 
GIVEN  S 
THROUGH 
EITHER 
DERIVAT 
KM  IS  T 
VM  wlLL 
IS  T 
WILL 
KM,KN  C 
S  MUST 
DIMENSI 
K  =  1 
M  »  1 
I  =  M 
J  =  M  +  K 
DS  =  S( 
D  =  OS 
IF  (DS. 
DF  =  {  F 
IF  ( lAB 
U  =  .5 

V  »  3.* 
GO  TO  i? 
U  =  0. 

V  =  VM 
GO  TO  b 
U  =  -1. 

V  '  -DS 
GU  TO  b 
I  =  J 

J  =  J+K 
DS  =  S( 
Ir  (C*D 
OF  »  (F 
B  =  1./ 
U  =  6*0 

V  =  B*  ( 
FP( I )  « 
FPP(  I) 

U  =  (2. 

V  =  6.* 
IF  (J.N 
IF  (KN- 


INE  SPLIF  (N,S>F,FP,FPP,FPPP^KM>VM,KN,  VN) 

FIT  -  SUBROUTINE  CJNTRIBUTED  BY  ANTHONY  JAMESON 

AND  F  AT  N  COr^kb  bPOND  I  NG  Pul  N  TS  *  COMPUT  E  A  CUBIC  jPlINE 

THESE  POINTS  SATISFYING  AN  END  CONDITION  IMPJSbU  U.M 
END.   FP,FPP»FPPP  ,^ILL  BE  THE  FIRST^SECOND  AND  THIRD 
IVE  RESPECTIVELY  AT  EACH  POINT  ON  THE  SPLINE 
HE  DERIVATIVE  IMPOSED  AT  THE  START  uF  THE  SFLINE 

dE  THE  VALUE  OF  THE  DERIVATIVE  THEkE 
HE  DERIVATIVE  IMPOSED  AT  THE  END  OF  THE  SPLINE 

3E  THE  VALUE  OF  THE  DERIVATIVE  THERE 
AN  TAKE  VALUES  1,2>  OP  3 
BE  MUNOTONIC 
ON  S(l)»  F(l)..  rP(i),  FPP(l),  FFPP(i) 


J  )-S(I  ) 

EO.O.)     CALL    AbOf^T 
(J )-F(  I)  )/DS 
S(KM)-2)     10>20^30 

(DF-VM)/DS 
0 


0 

*VM 
0 


J  )- 

S.L 
(J  ) 

(DS 

S 

6.* 

U 
=  V 
-U) 
DF  + 
E.N 
2) 


S(I  ) 

E.O  .)     CALL 
-F( I) )/DS 

+0S+U) 

DF-V) 


♦  DS 

DS+V 

)     GO    TO    ^0 

60,70,80 


ABORT 
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60  V  =  (6.*VN-V)/U 

GO  TO  90 
70  V  «  VN 

bU  TG  90 
do  V  =  (DS*\/N  +  FPP(  I  )  )/ (  1  .+(-P(  1  )  ) 
90  b  =  V 

D  »  DS 
100  DS  =  S{ J )-S(  I  ) 

L)  =  f  PP(  1  )-FP(  I)*V 

FPPP  (  I  )  =  (  V-L.)/DS 

(-PP{  I)  =  U 

FP(I)  =  (F{J)-F(l))/u3-0S*(V+L+U)/6. 

V  =  U 
J  =  I 

I  "  I-K 

IF  ( J.NE.N)  GO  TO  IGu  • 

FPPP(N)  =  FPPP(N-l) 

FFP(N)  =  B 

FP(N)  «  OF+D*(F PP(N-i ) +3+3) /b. 

IF  (KM.GT.O)  RtTUPN 

IF  KM  IS  NEGATIVE  CCMPUTt  THE  INTEGkAL  IN  FPPP 

FPPP( J )  =  0. 

V  «  i-PP(  J) 
105  I  =  J 

J  =  J  +  K 

DS  =  S(J  )-S(I  ) 

U  »  FPP( J) 

FPPP(J)  =  FPPP(  I) +  .t;*JS*(F(i)+F  (  J  )-Di*Ci*(U  +  V)/12.) 

V  =  L 

IF  ( J  .NE.N  )  GO  TG  105 

ktTJPN 

End 


SOBRCUTlNh  INTPL  ( NX , S I » F I , S» F» F P, F PP* F PPP  ) 
C      GIVEN  S»f(S)  ANL  THk  FIRST  THPEt  OERIVATIVLS  AT  A  SEI  CF  PUlNTS 
C       UNU  FKSI)  AT  THk  NX  VALULS  UF  SI  3Y  LVALUATING  THf  TAYLUK  ScRIES 
C      OBTAINED  BY  tSING  THt  FlfST  THREE  DERIVATIVES 

LI.ItNSIGN  SKI),  FI(1)»  b(i).  F(l)*  FP(1),  FPP(l),  FPPP(l) 

DATA  PT/. 333333333333^3/ 

J  «  C 

DO  30  I  «  1,NX 

VAL  «  C. 

SS  =  SKI) 
10  J  «  J+1 

FT  -  S(J)-SS 

IF  (TT)  iO,30#20 
20  J  »  KAXU(l,J-l) 

SS  ■  SS-S(J) 

VAL  «  SS* (FP( J) ♦.^♦SS*(FPP( J ) ♦SS»PI*FPPP( J)  )  ) 
30  Fid)  -  M  J)  ♦VAL 

RETURN 

kNO 
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SUBROUTINE  CGNJ  (  N^  i- ,  G»  X,  C  N»  S  N  ) 
C       CONJUGATION  BY  FAST  FQiJKlER  TRANSFORM 

C      GIVEN  THE  REAL  PART  i-    OF  AN  ANALYTIC  FUNCTION  Oix  THE  UNIT  ClrCLE 
C       THE  IMAGINARY  PAkT  G  IS  CJNSTRUCTEu 

COMPLEX  F,G»EIV,EIT 

DIMENSION    F(l  )>G( 1 ) W(  1  ),       CN(1),SN(1) 

DATA  PI/ 3.  1^1  t;92t)535b979/ 

L  =  N/2 

CX  =  l./FLOAT( L) 

ElV  =  CMPLX(C0S(PI*DX)»S1N(PI*DX) ) 

DO  2  I  -  1 »  L 
2  G  (  I  )       =  F  (  I  ) 

CALL  FFORM{L*G»X*CN, SN) 

G(l)  =  0. 

I  »  1 

DO  IC  J  =  1,L>2 

EIT  =  CMPLX(SN(  I)*LX,CN(I  )*DX ) 

I  =  l+l 

G(  J)  =  G( J)*EIT 
10  G(  J  +  1)  =  G(  J  +  1)*EIT*EI\/ 

DO  22  1=1, L 
22  SN(  I  )      =  -SN(  I  ) 

CALL  FFOi?M(L,G,x,CN>  SN) 

DO  32  1=1, L 
32  SN(I)      =  -SN(  I) 

EIV   =  CMPLX(  AirAG( G( L)  ),KbAL(G(  1  )  )  ) 

1  =  L 
^0  G(l)  »  CMPLX( AlhAG(G(l-i) ),RtAL(G( I) ) ) 

I  =  l-l 

IF  (  l.GT.l)  GC  TO  ^0 

G(l)  =  EIV 

RETURN 

END 


SUBROUTINE  FQUC F ( N . G, X, A, 8 ) 

FOURIER  COEFFICIENTS  BY  FAST  FOURIER  TRANSFORM 

COMPLEX  G,  EIV,CP,X,GK 

DIMENSION  G(l),X(i),       A(l),B(i) 

DATA    PI/3.1^1f>92653t)e979/ 

L  =     N/2 

V  =    PI/L 

EIV     =    CMPLX(CCS(V),SIN( V) ) 

ENI     =     l./FLOAT(N) 

CALL     FFORMC  L,G,X,  A,  B) 

6K     =     0. 

I     '    1 

DO    D    J     =     1,L,2 

X(  J)     =     Cf<PLX(  B(  I)  »  A(  I)  ) 

X( J  +  1 )     =     X  (  J  )«EIV 

1     =     I+l 

K     =     L 
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10 


DO  10  J  »  1,L 

QP  =  GK-C0NJ6(G( J  )  ) 

GK  =  GK  +  CCNJG(G( J )  )-lP*X ( J  ) 

A(  J  )  =  -^EAL  (GK  )+EM 

b( J )  »  AIMAG( GK) *£NI 

GK  =  G(K) 

K  =  K-1 

A(L+1)  =  -d(l) 

B(l)        =0. 

B(L+1)      =  0. 

KETUf^N 

END 


SUBRLUTINE  F F OPh ( N» F> X> C N» SN ) 
C       FAST  FGUPIER  TKANSFOkM 
C       INPUT  ARPAY  F  ^ITH  REAL 
C      REPLACED  BY  ITS  FOUPiEi^ 

COMPLEX  F  (  1)>  X(l),w 

DIMENSION  CN( 1)^  SN(1) 

IF  (N.LT.2)  RtTlRK 

NS  =  1 

NR  »  2 

NO  =  N 
C      SET  iHt  SINES  AND  COSINES 

PI-3.1^ib92653ib979 

DT  =  (PI*PI )/F LUAT (N) 

IF((SN(1).Ew.0.).AND.(SN(2).E0 

ANG  =  0. 

DO  5  J  «  1,N 

CN(J )  =  COS(ANG) 

SN( J )=-SIN( ANG) 

ANG  =  ANG+OT 

N 
tC.O)  GJ  TO  21 


A;nIO     IMAGINARY 
TRANSFORM 


PARTS     IN     ALTEPNATE     CELLS 


SIN(OT) ) )  Gu  TU  11 


5 
11 

10 
?1 


DO  10  K  «  NR, 
IF  (MOD(NU/K) 
CONTINUE 
ND-NC/K 


NS 
Nk 
10 
ID 
DO 
DO 
L  ■ 


»  NS*K 
•  K 
»  0 
«  0 

22  I  = 

2<.  J  - 

IQ  +  J 


i,NS 
UNP 


LP»L*SD 

M-IO 

W  »F(L)*F(LP)*CMPLX(CN(K*I)oN(r*l)) 

IF{NB.tQ.2)  GO  TO  2<. 

L»LP 

Du  ?.t    K-J.Nfr 

L  •  L*NO 

M  ■  M*IO 
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IF  (M.Gt.N)  M  =  r1-N 
26  W  =  w+F(L)*CMPLX(CN(N+i )>SN(N+1) ) 
2A  X(10+J)  =  w 

ID  =  ID+ND 

I  Q  ■  I  0  +  N  G 

IFdO.GE.N)  IC=IQ-N 
22  CONTINUE 

NQ  =  ND 

IF  (ND.GT . 1)  GO  TD  61 

DO  32  K  »  1>N 
32  F(K)  =  X(K) 

RETURN 
61  CO  60  K  =  NP»N 

IF  ( MaD( NO^K)  .  EC  .0)  GO  TD  71 
60  CONTINUE 
71  NU=NQ/K 

NS  =  NS*K 

NP  =  K 

IQ  =  0 

ID  =  0 

DO  72  I  =  1>NS 

DO  7A  J  =  1»ND 

L  =  10+J 

LP=L+ND 

f,  =  IO 
W=X(L)+X(LP)*CMPLX(CN(M+i)>SN(N+l)) 

Ir-(NP.E0.2)  GOTO  7^ 

L  =  LP 

DU  76  K=3»MR 

L  =  L+NO 

M  =  M+ID 

IF  (M.GE.N)  ri  =  M-N 

W  =  W  +  X(L)*CMPLX(CN(;'i  +  i)*SN(N>  +  l)  ) 

F  (  I D  +  J  )  =  W 

ID  =  ID+ND 

IC»IO+NQ 

IF(IC.GE.N)  IQ=IO-N 

CONTINUE 

NQ  =  ND 

IF  (ND.GF.  1)  GO  TQ  II 

RETURN 

END 


76 
7^ 


72 
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FUNCTION  1NDEXR( X, ARRAY* N) 

DIMENSION  ARkAY(I) 

S  =  AB5( X-ARRAY(N ) ) 

DC  10  L  =  l^N 

IF  (  ABS  (  X-ARRAY  (L  )  )  .bT.  i))  GO  TO  10 

INDEXR  =  L 

S  =  ABS( X-APRAY  (  L  )  ) 

CONT  INUE 

RETURN 
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SUBRl3UTlr4L    GTL)RB(DEL^AX»DEL8P,CP0*BCP*SL»PUEL»RBC^') 

CL)MMCN/FL/FLUXTA,CO^»Cl)w,  INDCD 

COMMON  PHI(lb2,31).fP(162f31),^{3i),&(3i),C(ii)>0(3i)»L(Ji) 

1  ,RP(31),PPP(31)fR(31)fKS(31)^Rl(31)>AA(i62)*Ba(ie2)>Cu(lfc2) 

2  *SI(162)»PHIR(162)>XC(l6  2)»YC(162)>FM(i62)»AftCL(i62)fDSljr,(lt.2) 

3  ,A,M&aL0(162),XGLL(lfc^)*YJL0(162),ARCGLj(lb2),DELQL0(162) 
't  ,RP^(31  )»  RP5(31) 

COMMON  /A/  PI,TP*KA3,t  1» ALP> RN. PCH, XP,TC»CriO»OPHI,CL, RCL> YR 

1  ,XA,YA,Tb*DT*Dli*DtLTH,DELR»RA,DCN*DSN»RA<t,EPSlL*CCKiT,Cl*C2 

2  ^C^C^^Cb^CT^BET^BETAfFSYM,  XSEP^SfcPrWTLECrj^M^N^KM^NN^NSP 

3  ,IK,JK,IZ,ITY?,MODt>IS,NFC*NCY,NRN,NG»IJlMW42»N3*N^,NT,lXX 
-V     fNPTS^LL/IfLScK^M'f^NtWfEPSl^NCtS^XLtNjSCALOi 

b     ,SCALQa»N6*GAMrA,NC)PT,CSTAk,KEM»UfcP»QlNF,TSTEP,XGUT 
6     ♦iNCUFACfGAfi^KDES^PLTSZjCPL^OPU 

RtAL     MACH,MACHN,N6W,hACHS 

DIMENSION    HP(162)*StPP(ie2)»CPP(i62)*TMETAP(lb2)*DELP(162) 
1       .DtLXd  )  »TD{1  ) 

DIMENSION    H(1),THETA(1),DELS(1)*XX(1),YY(1) ,MAlHN(1 ) 
1     ,SEPR(i)fCPX(l)*OSDT(l),i(l)*MACHS{l)*ANGNt».(l) 

EQUIVALENCE  (  ^  ACHN  (  1  )  ,  A  (  i  )  )    *  (  H  ( 1 )  >  FP  (  1*  t,  )  )  ,  {  T  Ht  T  A  (  1)  ^  FP  (1»  6  )  ) 
1  *(XX(  1)>FP(  1,3  )  ),  {  YY(  i),FP  do)  )  ,  (DELSd  )»  FP(1,  10)  ) 

2,{ANGNEw(l)»FP(l,24)),(SEPR(l),FPdd^)),(CPX(l),PHlRd)) 
3  ,(Sd),FP(l,i6)),(KACHS(l),FP(l,2b)),(L)SDT(l),FP(l,30)) 
<i    ,(DFLX(1),FP(1,12)),(TD(1),FP(1,20)) 

CP(>:>)  =  Cp*(  (C./ (  1  .+C2*Q*J)  )**C7-1.  ) 

USX(Q)  =  (C^-d  .+(j/C^  )♦♦(!  ./C7)  ) /Cb 

rACH(O)  =  SURT  (^/ (Cl-C2*3)  ) 

DATA  IS*4/0/,CDF/0./,XPLT/.5/,XFAC/iOO./ 

IF  (NDES.GE.l )  60  TO  5 

DO  10  J  =  1,NN 

PHI  (r^r,  J)     =     PHK  1,  J  )  +DPHI 
10     PHI  (f.M  +  1.  J  )     =     Phi  (2,  J  )*DPHI 
i)     IF     (ISW.EO.O     .ANO.CSTAR  .t  JdOO.  )     CALL     GJPLOT(NRN) 

CUMPUTE  AND  STORF  CP  CRITICAL 

CPX(KM  +  1  )  =  CPd.  ) 

ISX  SET  TL  1  FOR  FSYM=1.  AND  FSYM=3  IF  FLUw  HAS  NOT  BEEN  CuMPuTED 

ISX  =  (NCY  +  1  )*(ITYP-3)*AbS(FSYr  +  iO.  )  +  .2 

IF  (  ISx.Nbd)  GO  TO  30 

M<.  -  N3 

FSYM  =  0. 

ALP  «  0. 

XSEP  »  AMAXi(0.,XStP-l.) 

CS  ■  A (MM) 

DO  20  L  »  1,MM 

XOLUiL)  '     XC(L) 

YOL0(L )  =  YC ( L ) 

^'ACH^(L  )  ■  MACH(  A(  L  )  ) 
20  CPX(L  )  »  CP(^ACrtN{L)  ) 

IF  (  (  ABS(  YC(MM)-YC(  1  )  )  .Lt.l.t-S  )  .AND.  (  lAdS(NRN)  .&T.99-?)  )  GU  Tu  50 

Gu  TO  110 
30  OU  '.O  L  ■  2»M 

L  «  (PHI (L*l.  1  )-PHl ( L-i »  1  )  ) ♦[  U TH-b  I  ( L  ) 
CS  "  (U*U>  /Fi^  (Ld  ) 
MACHr.(L)  *     MACH(wS) 
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EC. 7) )  GG  TO  50 


.2) )  GU  TO  50 

NEXT  BLAMK  PAGE 
0*FLUAT(INT((d0.2+XPLT)/12 


AO  CPX(  L  )  =  CP(MACHN(L )  ) 

MACHN(MM)  =  . 5» (MACHN(2 ) ♦MACHN(M ) ) 

r,ACHN(l)  =  MACHNCM.'I) 

CPXd  )     =    CP(MAChN(l  )  ) 

CPX(NM)     :«    CPX  (1) 

OS=OSX(CPX{MM) ) 

IF((INDCD.EQ.1).AKD.(FSY,1 

IF     ( FSYM.E0.6.  )    GO    TG    60 

IF     ( (FSY^.LE.b. ) .Gk. (ITYP.LE 

ADVANCE  PLOTTER  PAPER  TO  THE 

IF{XFLT.GT..5)  CALL  PLJT(12. 

XPLT  =  .5 
50  CALL  GETCP(CCF) 

IF (INDCD.Ea.l)  1SW=1 

IF( INDCD.EQ.I )  RfcTUKN 

CALL  GQPRIN  (  HP,  THET  AP,  S  t  P  P,  C  PP  *  CE  L  P  >  XT '^  ANS  ) 

IF  ( ISX.EQ.I)  CALL  EXIT 

ISW  =  1 

RETURN 
60  DO  70  L  =  1,MM 
70  CPP(L)  =  CPX( L) 

IF( ( ISW.LO.O)  .UP.  (FSYM.Nfc.6.  ) )  GC  TO  9C 

FIND  THE  BASE  PRESSURE 

DELtJP  =  10. 

CPO  =  CP(hACHN(]XX-l  )  ) 

DO  SO  L  =  IXX,M 

CPN  =  CP(MACHN(L)) 

DEL3P  =  AMNl  (DtLBP»CPN-CPU) 
80  CPO  »  CPN 

BCP  =  3CP+RBCP*DELPP 
90  ISW  =  1 

PCH  =  ABS(PCH) 

IF  (LSEP.GE.MH)  GO  TG  ilO 

MGDIFY  THE  MACH  DISTRIBUTION 

CPO  =  CP(MACHN{LSEP)) 

SEPX  =  XC(LSEP) 

SL  =  (BCP-CPG)/(XC(iMfi)-SEPX) 

DC  ICO  L  =  LSEP,MM 

CPP(L)  =  CPO+SL*{XC(L)-StPX) 
100  MACHN(L)  =  ,MACH(GSX(CPP(L)  )  ) 
110  KUMIN  =  1 

KQMAX  =  1 

QhIN  =  fiACHNd) 

GMAX  =  OMIN 

DARC  =  TP/FL0AT(NPTS-1) 

DO  115  L  =  1,NPTS 

115  H(L)  =  FLCAT( L-1)*DARC 
H(NPTS)  =  TP 

DO  116  L  =  1,^ 

116  YY(L)  =  FL3AT (L-1 )*DT 
YY(Mf)  =  TP 

CALL  SPLIF  {(•^i'^,,  YY,  ARCL»USuT,CG,TD^3,0.,3,G.  ) 
CALL  IMTPL  (NPTS,H,S, YY, AKCL,DSOr,CJ>TL) 
S(NPTS)  «  ARCL(^r) 


)  ),0,,-3) 
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120 


I'tO 


'.I 


170 


180 


IH5 


CAL 

CAL 

CAL 

CAL 

DO 

IF 

If 

OM 

UNA 

SEP 

H{L 

DtL 

THE 

If- 

KwM 

IF 

CAL 

XTP 

IF 

KQB 

IF 

CAL 

FAC 

THE 

H(l 

DEL 

IF  ( 

FAC 

THE 

H(  N 

DEL 

CQN 

CUM 

U    = 

htJT 
Hfa8 
CLF 
CDF 
IF 
MaK 
LC 
It- 
CUN 
LUW 
TkE 
XPC 
IF 
J     « 
J     « 
li- 
lt- 
CLi 
IF 


L  SPLIF 
L  INTPL 
L  SPLIF 
L  INTPL 
120  L  = 
(^ACHS( 
(  r'ACriS( 
N  »  A.^I 
X  =  AMA 
R(  L)  = 
)  =  0. 
S  (L)  = 
TA(L)  = 
( FCH.LT 
AX  =  K& 
(  K  0  ^  A  X  . 
L  NA5HM 
ANS  =  P 
(PCH.LT 
OT  =  IN 
(KOf^OT. 
L  NASHK 
=  S('t)/  ( 
TA( 1)=F 
)  =FAC»H 
S( 1) «H( 
XSEP.GE 

=  ( s  ( ^^  P  T 

T  A  (  N  P  T  S 
PTS)  ='FA 
S(NPTS) 
TINUE 

p  u  r  E  T  H 
SQP.TCJ 
«  (Cl-C 
=  (H(N 
=  (H(  1 
=  2.*T 
«  Qdf* 
(  ISX.EC 
E  OISPL 
170  L  = 
(DELS( L 
TINUt 
Ek  SUKF 
AT  THE 
«  .60 
( XSEP.L 
hUBQT 
J-1 
(  LFLS  (  J 
( J.GE  .2 
TC  200 
(XX( J) . 


(MM,ARCL>MACHN,DSCT,C0»TD»3>0.,3»0.) 
(nPTS^S  fMACHj,AKCL»'1A^.HN,D5DT,CG,T3) 

(MM,APCL»XC»DSDTfCO*TD»3»G.,3>C.) 

(iNPTS>S,XX,ARCL*XC/DSDT/CG.TO) 

1,NPTS 
D.GT.uMAX)     KQhAX     =     L 
D.LT.QMIN)     KQi^IN    »    L 
N1(MACHS(L),  Q-IIN) 
XI  (  fiACHS(L  ),  JMAX) 
0. 


0. 
0 
.0 
MI 
GE 
C 

CH 
.0 
DE 
LE 
C 

S( 
AC 
(2 
1) 
.0 

s- 
)  = 

C* 
=  H 


.  )  GO  TO  i^O 

N+IN0EXR(PCH,XX(KOhIN+l),NPTS-KQMIN) 
.NPTS)  CALL  ABORT 
(KuNAXtNPTS) 

)  XTkANS  =  XX(Ku.'iAX) 

XR  (  XTRANS*  XX^KOMIN) 

.1)  CALL  AjQRT 

(KCbOT, 1 ) 

'tJ-SC?)  ) 

*THLTA(2)-t-(i.-rAC)*THETA(^) 

)  ♦(] .-FAC ) ♦Hl^ ) 

♦  THfTAd  ) 

.  )  GC  TO  i^l 

3)-S(NPTS))/(S(NPTS-3)-S(NPTS-l)) 

FAC*ThbTA(;<.PT5-l)+(i.-FAC)*THtTA(NPTi)-3) 

H(NPTS-1  )  +  {l.-FAC )*H(NPTS-3) 

(NPTS)*ThE  rA(NPTS) 


E  SKIN  FRICTIO.N  Df<AG 

S) 

2*CS)/ (C1-C2) 

PTS)+i. )♦(! .-C2*0S/Cl)-i. 

) +1  .)♦( l.-C2*US/Cl)-l. 

MET  A(NPTS  )  ♦U»*(  .!3*(   HBT   *').))*(■  f  **3 

2.*rHfcrA(l)*J**(.!;»(  HbtJ  +  t).))*^(T*»3 

.1)  GO  TO  2J0 

ACEMENT  .IuNJTunE  INCREASING  CN  THF  UPPER  SUffFACt 

Kj.^Ax,Np  rs 

♦  l).LT.i;tLS(L))  0ELS(L*1)  •  OELS(L) 

ACE  -  FIIID  ^MEkE  DELS  STaRIS  UECkEASINv, 

LOW(  K  SURFACt  LIKE  THE  UHPE»<  SURFACE  IF  XScP.LT.O 

I  .0.  )  XPC  •  2. 


-1  )  .LI  .L  tLS(  J  )  )  oO  TO  idl) 
)  CO  TO  loo 

GT.XPC)  GO  TJ  190 
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MUST  STAY  MQNOTDNfc  DECREASING 

DliLS(  J-1)     =    DELS(  J  ) 


DELS{ J-1)     =    DELS( J) 

GO    TO    180 

DISPLACEMENT 
190  J  =  J-1 

IF  { DELS( J-1) .GT.DELS( J ) ) 

If-  (J.GT.2)  GG  ID  19  0 

SMOOTH  DELS   IS   TIMES 
200  IF  (  IS.LE.O)  GO  TO  220 

DO  210   I  =  1*  IS 

OLD  =  DELS(  1) 

CO  210  L  =  3,NPTS 

NEW  =  DELS( L-1) 

DELS(L-l)  =  .  2t3»(CLD  +  MEW  +  NbW+D 
210  OLD  =  NEW 

220  XPLT  =  XPLT+.5 
FAC=(S(MPTS-1)-S(NPTS))/(S(NPT 
DELS (NPTS)=FAC*D£LS (KPT S-2)+(l 
IF(XSEP.&E.O.)  GO  TO  221 
FAC=(S(2)-S(1 )  )/  (S(2  )-S(3)  ) 
DELS(1)«FAC*DFLS{3)+(1.-F4C)*D 

221  CONTINUE 

IF  (  ISX.EQ.l )  GO  TO  260 
YFAC  =  10. /S( NPTS) 
Lh  =  (H(KQMAX+1 )-h(KUB JT-1 ) )/ 
FAC  »  AkCCLO{NT)/S(NPTS ) 
IF  (XPLT.LT.l. 2)  CALL  SYMBJL(.3 
1  AT  EACH  bOUNDAhY  LAYEK  ITERAT 
CALL  PLOT  (XPLT+XFAC*DcLS(l)>l 
DU  230  L  =  l^NPTS 
CALL  PLOT(  XPLT+XFAC*L;bLS(L)^xO 
IF  (  (L.GE .KQBOT) . AND. ( L .LE  .KQM 
230  YY(L)  =  S(L)*FAC 

YY(NPTS)  =  ARCOLD(NT) 
DELX  WILL  BE  BOUNDRY  LAYER  DIS 
CALL  SPLIF(NPTS*YY,bELS,DSDT,C 
CALL  INTPL(NT» AfeCOLD^OELX^ YY^D 
THE  FOLLOWING  At*  E  BEING  CUMPUT 
CALL  SPLIF(NPTS,S>DELS^DSDT,CO 
CALL  INTPL(MMi AKCL, DELP,S»DELS 
CALL  SPLIF  (NPTS*S/H,0SDT,C0,T 
CALL  INTPL(MM, ARCL*HP,S*H, DSCT 
CALL  SPLIKNPTS^S,  THETa,LSDT,C 
CALL  INTPL  (MM,ARCL,THETAP,S*T 
CALL  SPLIF  (NPTS,  S^  StPiRfDSDT,C 
CALL  INTPL(MM,ARCL>SEPP*S, SEPR 
GET  THE  SLOPES  FLR  THE  OUTER  A 


ELS{L)  ) 


S-l)-S(NPT:)-2  )  ) 
.-FAC)*DELS(NP  TS-l ) 


f  LS(2) 


FLOAT  (  2+K'wMAX-KwMlN) 

5f6.7^>.l^,5  5HaiSPLACEMENr  iHlCKNESS 

U.b,3  ) 

.5-YF AC*S(L)f 2) 

AX) )  H( L)  =  H(L-1 )+DH 


PLACEMENT  AT  NT  POINTS 

C*TU,  3,0.,3*0.  ) 

ELS>DSlT*L3*TD) 

ED    FUR    FLTuRE    PRINT    OUT 

>TD*3, 0.^3,0. ) 

,DSDT,CG,TD) 

Df3tO.»3tO,) 

,CQ,TD) 

0, TO, 3, 0.,3,0. ) 

HtTA,USDT,CD,TD) 

0*  TD,  3*  C.t  3,0.  ) 

,DSnT,C0,TD) 

IRFOIL  AT  CURRESPONCING  POINTS 


2^.0 


DO  2^0  L  =  1,MM 

DDEL  =  RDEL*(DELP(L )-JSuM(L  )  ) 

DELP(L)  '    DDEL 

DSUM(L)  =  DSUM(L)+DDEL 

S(L)  =  FAC*ARCL(L) 

S(MM)  =  ARCOLD(NT) 

CALL  SPLIF ( MM,S,FM,DSDr,CO,TD, 

CALL  INTPL (NT> APCOLD, ANGNEw,S* 


3,0., 3,0.) 
FM,DS0T,C0,TD) 
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250 


260 


270 


10 
DO 
DE 
DY 
AN 
XX 
YY 
DE 
IS 
IS 
IF 
CA 
iS 
FS 
PE 
DO 
A^ 
CP 
AN 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
NT 
CA 
It- 
CA 
EN 


LMAX 

2i'0 

EL  = 

LMAX 

=  OE 
G  »  . 
(L  )=X 
(L  )=Y 
LQLO( 
S  =  I 
=  -1 
(  ITY 
LL  AI 

=  IS 

YM  X 
TUPN 
270 
CDLD( 
P(  L  ) 
GaLD( 
LL  SP 


=  0. 

L  «  1, NT 

DELX(L)-DELOLD(L) 

=  AMAX  1( DELMAX, AttS( DDE  L)  ) 

LuLJ(L  )  +  FbbL*D0LL 

5*(  ANGOLC(L)+AN&NE*J(  L)  ) 

OLD(L) 

3lD( L) +DY/C0S( ANG) 

L  )  =  DY 

S 


CALL     GJPf<IfJ     (hP,  THETAP,  5EPP,CPP»  ObLP,  XTPAN:>) 


IN 
SP 
IN 
SP 
IN 
GO 
=     MM 

LL  GE 
{  JK. 

IL     EX 

0 


LL 
LL 
LL 
LL 
LL 
LL 


P. £0.99) 

RFQL 

S 

7. 


L     =     1W1M 

L)     =     APCL  (L  ) 

=     CPX(  L  ) 

L)     =    FM(L) 

LIF(NPT  S,  S>  DELS*  OS  3T,CG,T  0*3*0. ,3,0.) 

TPL(MM,AfrCL,DSJM,SiDELS*i.SDT,Ca»TO) 

LIF(NPTS,S,SEPk,DSD7*CC,TD,3,0.»3,0.) 

TPL     (^M,AkCL,SEPP>S,SEPF!,DSDT,CC,TD) 

LIF     {NPTS,S,ThETA,OSDT*CG,TD»3*C.>3*0.) 

TPL     (MM,ARCL,THErAP*S*ThETA,JSDT,CO*TD) 

PRIN  {HP,THtTAP*SEPP*CPP,DELP,XTkANb) 


TCP{CDF) 
LE.-i  )  CALL 
IT 


PLOT  (0.*0.*999) 


SUB 
RE  A 
CbM 

1  »R 

2  f  S 

3  *A 
'f     »R 

COM 
1  »X 
2 
3 
(f 
t» 
6 

DIM 
1  ,M 

EUU 

E«JU 


.C 
,1 
*N 
,  S 

,   I 


ROUT 

L  KA 

MLN 

P{31 

I  (  16 

NGOL 

PA(3 

MCiN 

A»  YA 

^»C!> 

K,  JK 

PTS» 

CAL3 

NC.Q 

ENSI 

ACHN 

I  VAL 

IVAL 


INE 
ChN 
PHI (  It 
)»  kPP( 
2  ) »  P  H I 
D(162) 
1  )  »  k  P  t; 
/A/  PI 
p  TE,0T 
»  Cfc. C7 
,IZ*IT 
LL»  I»L 
U»  N6,G 
FAC.GA 
JN  DSU 
(  1)»CP 
ENCE  ( 
ENCE  ( 


GDPkIN(H,THETA,SEP,CPP,OEL>XT-<) 


2,31)>FP(i62,31)*A(3i)*ri(2x)*L(3l)*D(31),E(3i) 

31)»k(31>»RS(31),Kl(3i)>AA(i6£:),bB(lt2)»Cu(lc^) 

k(lo2).XC(io2)»YC(162)»PM(i62)>AkCL(i62)»DSuM(lc^) 

»X0LL(lb2)*Y0LD(162),ARi.QLD(162)*DELGLD(162) 

(31) 

*rP*PAO,tM,ALP*KN,PCH*XP*TC»ChD*DPHl,CL*KCL»Y»« 

,UP,0ELTH*DELR,M*DCN,0SN,KAA,EPSIL,wCPlT»Cl»C2 

.  £,tT,bFTM,FSYM,XSEP,SFPM,TTLE(<.)»M,N,M«1,NN,riSP 

YP*M0DE*Ii*NFC,NCY,NKN»Nb»liJlM*N2,N3.N'..NT,lXA 

btP#r<.*Nt.J»EPSl*NDtS*XLEN,SCAL01 

AMMA*N0PT.CSTAk»kfM,DEP»01NF,T3TLP»AuuT 

M.KDES. PL  I SZ»  UPL . JPU 

T(l),»-PP(l)»FPPP(l),ri(l),SLP(l)»THfcTA(l),CP?(l) 

(  1  ) »  D  t  L  (  1)  »  B  L  ( <. ) 

FPP(l),cJ(l)),(FPPP(l),SI(l))*(D:>L<T(i),FP(l»31)) 

MACHN(1).A(I)),(LP(1),PH1».{1)) 
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10 


20 


2t; 


555 
600 


556 


61C 

30 
670 

^0 

50 


60 


70 


DATA 
SN  = 

OMIN  = 
DO  10 

ARCL( 

ARCL( 

CALL 

D5DT( 

DSDT( 

DO  20 

FPP(  L 

FPPP  ( 

IF  (F 

IF  (F 

WRITE 

IF  (  F 

IF  (  X 

IF  (  X 

IF  (  X 

PEWIN 

READ 

READ 

FUR.IA 

DO  3  0 

IF  (X 

IF  (M 

READ( 

FuRMA 

WRITE 

GO  TC 

IF  (M 

WRITE 

CDNTI 

FORMA 

RESTD 

DO  5  0 

APCL( 

FP(L* 

CALL 

RETUR 

RNX  = 

IF  (  ( 

WRITE 

WRITE 

IF  ( 

CALL 

ENCOO 

CALL 

bNCJD 

CALL 

CALL 

DO   7 

CALL 


ION, 
-I.  I 
MACH 

L  = 
AMIN 
L)  = 
MM) 
SPLI 
1  )  = 
MM) 

L  = 
)  = 
L)  = 
SYM. 
SYM. 

(N4 
SYM. 
P.EQ 
P.NE 
P.EO 
D  M^ 
(MA, 
(MA, 
T  (1 

L  " 
P.EJ 
OD(L 
MA,  5 
T(2F 
(MA, 

30 
0D(  L 
(NA, 
NUE 
T  (  I 
RE  U 

L  = 
L)  = 
NN) 
COSI 
N 

.1* 
ABS( 

(NA 

(NA 
JK.G 
PLOT 
E  (3 
SYMB 
E  (2 
SYM3 
PLOT 
0  L 
PLOT 


iaFF,Z,SEPMAX/l,C,0.,.OOA/ 
ARCL (MM) 
N(  1) 

1,M 
1(MACHN(L),  CiMIN) 

ACOS(l.+SN*Ar<CL  (L  )  ) 
»     PI 
F(MM,ARCL,FM,D3JT,FPP,FPPP,1,C.,1,0.) 

FPP( l)*l.E-5 
=    -FPP(MM)*l.t-^ 

1,MM 
RAD*FM( L)-ltO. 

SN*DSDT(L)/AMmX1(1.E-5,SIN(ARCL(L))) 
GT.5.)     GO    TC    120 
EQ.O.)    GO    TO    bO 
,310) 

EU.O)  WRITE  (-4A,320)  TTLE 
.0.)  WRITE (Nt,3cO)  lOFF 
.0.)  wi«  ITE(NA,b60)  lOFF 
.0.)  GC  TG  600 

555  ) 
555) 
HI) 

1,MM 
.0.)  GO  TO  610 

+1,55). EQ.O)  WRITE  (NA,660)  ION 
56)  UUf, DUM 
10. A  ) 
6  70)  L,XC(L  ),  YC (L),FFP(L),FPPP(L) »MACHN{L),CP (L),uUM 

+1,55),EG.0)  WRITE  (NA,360)  ICM 

2  60)  L,XC(L),YC(L),FPP(L),FPPP(L),MACHN(L),CP(L) 

1A,2F9.5,2F6.2,3F9.A) 

UANTITltS  TO  VALUES  ThEY  HAD  UPON  EnTcRIKG  THIS  ROUTINE 

1,MM 

(CDS( ARCL (L ) )-l. )/SN 
=  1. 


AINT{PN*l.E-5) 

YC(MM)-YC(  1)  )  .LL.l.E-5  )  .  AND.  (  1A3S(NRK)  .&T.99-*)  )  Gu  TG  25 

,390)  TTLE, RNX 

,330)  lOFF 

E.O  )  GO  TO  80 

(2.,0.,-3) 
0,370, TTLE)  EM,CL,TC 
OL  ( 1.2,  .7, .iA,TTLE,0., 30) 
0,380, TTLE)  RNX 
GL  (1.5,1.0, . iA, TTLE, 0., 20) 
(PLTS/«XC(1),:^.+PLTSZ*YC(1),3) 
=  2,  MM 

(PLTSZ*XC(L),p.+PLTSZ«YC(L),2) 
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80 


90 


100 


120 


12t' 


1 


130 


150 

2bO 
Z-iO 


1 


IPEN  «  3 
DO  100  L 
Xi)  =  XOL 
YS  =  YQL 
XC  (L  )  ' 
YC(L)  = 
IF  ( JK.L 
IPEN  =  2 
IF  {KQDC 
IF  (XOLD 
TkAMb  = 
IF  (fACH 
IF  ( (XQL 
IF  ((XOL 
wRITt  (N 
&U  TO  10 
wklTE  (N 
,SEP{L) 
C  (J  N  T  I  N  U  E 
IF  (XP.E 
XP  =  -AB 
RETURN 
WRITE  (N 
WRITE  (N 
I  -  1 
YSEP  =  A 
IF  (XSEP 

00  i:.c  L 

IF  (M00( 
IF  ( XC(L 
TRANS  = 
li-  (fACH 
IF  (  (XC  ( 
I  =  -1 
YSEP  «  A 
IF  { ( XC( 
WR  ITfc     (N 

CP(  L) 
GO    TO 
bL(  1)     - 
BL(2)     = 
EK  3)     - 
EL(^)-    1 
If     (L.EO 
IF( (SLP( 
IF     (L.EO 
IF( ( XC( L 
taFirt     (N 

CP(L  ),C 
CONTINUE 
&U  TC  <tO 
F(jRMAT  (  I 
FORMAT  (  3 
t9.2,I5) 


=     1,MM 
D( L)+DSU1( L)*SIN( AMGCLC 
D(L)-OSLK(L)»CJS(ANGULU 
XS 
YS 
b.-l)        CALL     PL-.T(PLTSZ* 


(  L)  ) 
(L  )  ) 


XS*5.+PLT5Z*YS,1PEN) 
,330)  ICN 


OHSTAbNATION 

(L-i ) .GT.XTR) )  GO  TO  65 

(L-2).GT.XTK))TRANS«  lOHTKAWSlTION 

FPP(L)*FPPP(L)KPP(L)»TRANS,aS*YS 


L+3,55)  .ECO  )  wRITt  (N4 

(L  ). GT.XTR)  GO  TO  90 

IH 

N(  L)  .EQ.QhIN)  TRAVIS  =  1 

0 (L+1 ) .GT.XTR) .Ok. (XOLD 

D( L+2 ) .GT.XTR ) ,0K. (XOLD 

^,3^0)  XULD( L), YOLD(L  )/ 

0 

^,350)  XOLD(L)>YULC(L)»FPP(L)>FPPP(L).CPP(L),ThETA(L) 

, XS, YS 

0.0.)  NRN  =«  -1A6S{NRN) 
S(XP) 

^> JlO  ) 

^>300)  lOFF 

BS(XSEP) 

.GT.u.)  YSfcP  =  2. 

=  1,MM 
L,55).fc0.0)  WRITE  (N't^SOC)  ION 
)  .GT. XTF )  GO  TJ  130 
IH 

N( L) . Lu.UMiN)  TRANS  =  1 
L-t-l).GT.XTR).jK.(XC(L-l 


OHSTAGNATION 

)  .GT. aTR  )  )  GO  TO  125 


,C 
15 


dS 

L* 

'.f 

PP 

0 

IH 

IH 

Ih 

H 

.L 

L) 

.  I 

)  . 

'ip 

PP 


(XSFP) 

2)  .GT.XTR) .OP. (XC(L-2 
290)  L»XC(L)>Y 

(L  )  .  2, Z»  TR ANS»L 


). gt.xtr))  ikans  =  lohtrans ition 
c(l),fpp(l)»fppp(L),kach;>.(L)» 


SEP)    BL(1)  ■  2HLS 

.GT.SEPMAX)  .  AND.  (SEP(  L  +  I  )  .L  T.SEPMAX)  )  eL(2)-  2HC:i 

XX)  BL(3)-  2HLM 

GE.  YSIP)  .ANl).  (  XC(  L*I  ) 

280 )  bL      ,L#  xC  (L  )  ,  Y 

(L ) »  THt TA( L ) »  DSUM( L  ), 


.LT.YStP  )  )  BL  C)  »  2HLP 
C(L)*FPP(L),FPPP(L)»MACHN(L), 
ScP(L  )»F(L)#ulL(L  )*L 


I<..2f9.t,2Fa.2,2F^.<.) 
X,   '.A2,I5»2F^.5,F«*.2,F 


e.2*Ft),<.,2F9,<»,F<>.5»F9.5*h'».5,F7.2, 
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?90 
300 

310 
320 
330 

340 
350 
3oO 
370 
380 
3P0 

660 


FORMA 
hCkMA 

.  ^6X3 
FORMA 
FORMA 
FORMA 

.  5HTh 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
FORMA 
F'f.l 
FORMA 

.  6X,  4 
END 


T     (Ii6f2F9.5,F<y.2*F8.^,F8.A,2F9.4»£F^.3,yX,AiOWX,It>) 

T(Il»14XlriLbX2HXS»7X,2HYS,7X,3HANG*4X,!?HKAPPA,'tX,4HMALHLX2HCP 

HCPl*4X5HTHETA*tX4H0ELS^6X3HStPf6XinH,^X2HDD,6XlHL/) 

T(  IHl,  lbX,40HL0l^EK     SURFACE     TAIL     FC    UPPER     bUKFACE     TAIL     ) 

T(1H1/        17X26HLIST1NG    Of     COORDINATES    FGR,2X,4A<f) 

T(Ii     /llXlhX,8X,lriY»'3X,3HANG>4X,t,hKAPPA,6X,2hLP»0X, 

ETA,ijX,3HStP*6X,2HXSWX,2HYS/) 

T     (F14.!3,F9.5»F6.2*F6.<:,F9.4,4X,A10f4X,2F9.:j) 

T     (F14.ij>F9.5>F8.2>F6.^,F9.-^,4F9.:i) 

T     (Il/12XlHL*6X»lHX>bX,lHY»6X,3HANb»4X5HKAPPA4X'fHHAuHoXi:HCP/) 

T  (  2h«=,FA.3*4X,3MLL=^Fb . 3>4X, 4HT/C  =  »F4.3  ) 

T  ('^H  RN  =  ,F4.1»9H   MILLION  ) 

T(1H1/    9X26HLISTING  OF  COOROINATES  FaR,2X,4A4  »4X,3riKN=, 

»8H  MILLION  ) 

T  (  Il/12XlhL»6XjlHX,3X»lHY»6X,3hAKG,4X5HKAPPA4X4HMAtricX^hCP. 

hOATA/ ) 


C 

c 


1 

2 

3 

1 
2 
3 

5 
6 


10 


SU8R 
CuMP 
K3  W 
COMM 
RP 
SI 
AN 
RP 
C  uMM 
XA 

IK 
NP 
SC 
IN 
DIME 
EuUI 
EQUI 
ECUI 
REAL 
DATA 
1  .00 
GAMl 
CSII 
INC 
YSEP 
IF  ( 
SEPM 
GL  = 
L  = 
LS  = 
LP  = 
MH  = 


LOT  I 
LTE 
ILL 
ON  P 
(31) 
(162 
GOLD 
4{  31 
ON  / 
>YA» 
»C5, 
*  JK, 
TS»L 
ALQO 
C>OF 
NSIO 
VALE 
VALE 
VALE 
MH, 
TR, 

—         • 

NF  = 
=    IS 

»  ^ 
(  XSE 
AX     = 

6.5 
Kl 

Aas 

L  +  I 


Nfc    N 

THE 

BE    T 

Hid 

,kPP 

),PH 

(162 

)>KP 

A/     P 

TE,D 

Cfc,C 

IZ>I 

L,I, 

,  N6/ 

ACG 

N    KA 

NCE( 

NCE 

NCE 

MhSO 

RTHO 

,b»l 

5/C2 

C4 
IGN{ 
BS(  X 
P.GT 

SEP 


ASHK 
dOUN 
HE  S 
62>3 
(31) 
IR(1 
)*X0 
b(31 
I>TP 
T,DF 
7, BE 
TYP* 
LSEP 
oAMM 
AM,K 
CHS( 
MACh 
(  SEP 
(  XX( 
*NU, 
,TE1 
.E4/ 


C  (K 

DRY 

EPAR 

l)f  F 

,K(3 

62), 

LLM  1 

) 

,  RAD 

,DEL 

T,BE 

MODE 

,  f^k, 

A,  NO 

DES» 

1  )fH 

5(1) 

K  (1) 

i  ),f 

MACH 

,TE2 


1,K2) 

LAYEk  FROh  POINT  Kl  TO  ^2 

AT  I  ON  POINT 

P(162, 31)^ A{ 

i)>RS(31),kI 

XC(162  ),YC(  1 

62), YOLD( 162 


31), D(31),C(31),D(31),E(3i) 

(31),AA{162),bb(162),C0(lo2) 

62),FM(io2),AkCL(xc2),DiUM(162) 

),AKC0LJ(lo2),DELCLD(l62) 


, EM, ALP 

TH,0ELR 

1  A, FSYM 

,IS,NFC 

NEv.,  EPS 

PT,CSTA 

PLTSZ,Q 

(1),THE 

>  FP(  1,2 

,FP  (1,  1 

P(  1,3)  ) 

S 

, SEPMAX 


,RN,PCH>XP,TC,CHD,DPhI,CL,RCL,YK 

,KA,DCN,DSN,RAA,EPSiL,CCRlT,Ci,C2 

,xSEP,5EPrt,TTLE(4),M,Nl,MM,NN,NSP 

,  NCY,NRN,  ,nG,  I01M,N2,N3,K4,N1,  IXX 

l,NDES,XLEN,SCALQi 

R,kEM,OLP,QINF,TSTEP,XOUT 

PL,  CPU 

TA(l),SEPk(l),S(l),DEL:)(l),XX(l) 

d)),{H(i),FP(l,6)),(THcTA(l),FP(l,c)) 

4)),(DELS(l),FP(l,10)),{S(l),FP(i,lt)) 


,PIMIN,PIMAX  /.3424,320.,5.c-3,t5.E-b, 


1,K2-K1  ) 

SEP) 

.U. ) . AND. { INC.LT.C) )  YSEP  =  1. 

M 


(  S(L)-S( L-INC )  ) 

NC 

( MACHS( L) +MACHS ( LP  )  ) 
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30 


bO 


110 
I'tO 
130 


MhSJ  »  M 
CSIH  =  1 
LSOLD  = 
DS  =  ABS 
DODS  '  ( 
T  =  CSII 
PHGH  =  T 
N  L  =  T  *  ( 
RTH  =  RN 
IF  (L.Nt 
THf.T^H  = 
ThT  =  TH 
F  C  =  1.0 
F  k  =  1  .  - 
DU  AT  !^3 
DL  i'.O  J 
RTAU=  1. 
1  (Gfc*GE 
TAU  •=  «T 

HB  =   :./ 

HH  =  ( 
SfcP  =  -T 
IF  (S6P. 
IF  (XXd 
PIE  =  Hh 
PIE  =  AM 
L  =  t.l* 
T2  =  ABS 
GC  =  G 
bT2  =  DT 
CTl  =  (H 
IF  (  J.E:3 
TI  "  ABS 
IF  (  (TI. 
THETAH  = 
CONTINUE 
THETAdP 
StP  =  -T 
THETAH  = 
THT  =  TH 
SfcR-J  (  L  ) 
S  tPk^  (LP) 
H(L  )  »  ( 
H( LP)  = 
LtLS(L) 
L  ■  LP 
IF  (L.NE 
^{X?.  )  «H( 
i  L  P  ".  (  K  2  ) 
DELS(K2) 
H(K1)  - 
SbPR(M) 
CALL  NAS 
DfcLS(K2- 


H  +  f'H 

.+C2*MHSQ 

DS 

(S(LP  )-S (L  )  ) 

f'ACHS  (LF)-NACHS(L)  )  /  (  DS  ♦MH  +  C  S  IH  ) 

NF/CSIH 

♦♦GAMl 

1  .  +TK  )  /  (i?HCh»  (  T  +  TSI  )  ) 

*hH/  (  Ef,*NU) 

.Ki)  GO  TC  3C 

KTHO/ PTH 

LTAH 

+  ,Ob6»MhS&-.C0'3*r,H*MHSQ 

.134*MHS0+.027*MHSQ*hH 

ST  200  ITEkATIGNS 

=  It'tQ'y 
/(FC*(2.^7il*ALJG(FP*RTh*THETAF)+'t.73)*i.b*Gt:+i724./ 
+  200.  )-16.87) 
AO*i<T  AU 
(  l.-GE*FTAU) 

HB+l. )♦( l.+.17d*MHS0)-l. 
HETAH  +  CCiDS 
LT  .SE  P^AX)     GL    TG    50 
)  .  LT. YSLP)     StP     «     SEPMAX 
*SEP/TAU 

AX1(PIMN,AMI(U(PL-^AX,P1E)) 
SjKT(PIE+1.81)-1.7 
( G-Gl ) /GE 

I 

H*Z  .-r.HSO  )*iLP  +  TAU 
.1)     60    IC    lie 
( (DT1-DT2 )/DTl) 

LT .T£2) .ANO.( T2  .LT.TF  1)  )    GG    TG    130 
THT+.t.»DTl*DS 

)     =    THT*DT1*US 
Ht;  TAH  +  DCDS 

THETA(LP) 
t  T A( LP  ) 
=     (itHf-  (LJ^DS  +  SEP  +  uSULD/dJS  +  DSJLC) 

-    SEP 
H(L)«DS*HH«DSULU)/(rS+rSOLD) 
HH 
=     M(L  )«THETA( L ) 

.K2)     GO     TG    IC 
K2-lNC)*(DS/LSJLJ)*(H(K2-If>C)-h(.<2-lNC-lNL)) 

»    2.♦SfcPK(K2)-SkPF(^2-I^^C  ) 

■    H( K2)«THET A(K2) 
u  . 

«    0. 
HLS(K2  ) 
INC)     ■    M(  K2-iNL  )  ♦THt  T>.(K2-I^IC  ) 
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DELS(K2)     = 

RETURN 

END 


H  {><.2  )*TH£TA(K2) 


10 


20 


SU3RCUTINE  TKICl(A,b^C»RHS»UbT^N>IDI^) 

CUMPLEX  RhSfOUT 

DIMENSION  A{ 1),P{  1  ),C(i  ) 

DIMENSION  GA(3t)ikHS(IDIIi)*0UT(3b) 

REC=1./B( 1) 

GA( 1)=REC*C( 1) 

0UT(1)=REC*RHS(1  ) 

DO  IC  J=«2,N 

REC  =  l./(e{ J)-A( J )*GA(J-1)  ) 

GA( J )=REC*C( J  ) 

0UT(J)=REC*(PHS(J)-A(J)*GjT(J-1)) 

l)G  20  JJ=2»N 

J=N-JJ+1 

CUT(J)=QUT(J)-GA(J)*UJT{J+1) 

RETURN 

END 


SUB 
COM 
1  ,R 
?  ,S 
3  ,A 
^  *R 
COM 
1  >X 


30 


,1 

*H 
,S 
,1 

COM 

DIM 

COM 

IF( 

DO 

CX( 

SX  ( 

CON 

NEW 

KMP 

COM 

MA  = 

MAI 

DO 


ROUTINE 
MON  PHI 
P (31),R 
I( 162), 
NGGLDd 
PA{31), 
MCN  /A/ 
A,YA,TE 
A,C5,C6 
K,JK,  IZ 
PTS^LL^ 
CALQQ,N 
NCaFAC 
PLEX  FF 
ENSION 
MLN  /SO 
NfcW.NE. 

1  1*1, M 
1)=C0S( 
I )=SIN( 
TINUE 

=  0. 
=  h  M  + 1 
TINUE 

n/2 

=  r  A+1 

2  J  =  l 


SOLVl 
(  162,3 
PP( 31) 
PHIRd 
62), XC 
RP5 (31 

PI,TP 
,DT,DR 
,C7,BE 
,ITYP, 
I,LSEP 
6,GAMM 
,GAM,K 
,F1,GG 
CX( 162 
LI/  0( 
1)  GO 


i),FP(io2,31),A(31),ii(31),C(31),D{31),E(3i) 

,R(31),RS(3i),RI(31),AA(16Z),bb(ifc2),CG(162) 

b2),xC(lb2),YC(lt2),Fn(ib2),ARCL(162),DSUr(lo2) 

LD(lt2),YGLD(162)f ARC OL 0(162), DELOLD( 162) 

) 

»PAD,LM,ALP,RK,PCH,XP,TC,Chb,uPHI,CL,RLL,YR 

,uELTH,DELk,RA,DCN,DSN,kA^,kPSlL,CCRIT,Cl,C2 

T,BtTA,FSYM,XStP,Si:PM,TTLE{^),M,N,KM,NN,NiP 

M0L)t,IS,NFC,NCY,NRN,NG,I31M,N2,N3,N^,Nr,IXX 

jM*^, NEW, EPSl, NOES, XLEN,SCALQI 

A,NUPr,CSTAK,hEhi,OEP,QINF,TSTEP,XGUT 

DES,PLTSZ,tPL,CPU 

),SX(it;2),FKlb2),oG(162),Fl(31) 
162,31 ) 
TO  30 


(  I-1)*UT) 
(  I-1)*DT) 


N,2 
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10 


12 


CA 
DO 
IK 
C( 
U( 
Q( 
U( 
CO 
CC 
Hk 
DO 
D( 
T« 
B( 
C( 
C( 
DO 
IM 
DO 
A( 
Fh 
CA 
DO 
Q( 
Oi 
CU 
CO 

L)C 

CU 
IN 
Fh 
GG 
FF 
GG 
CA 
CU 
CO 
0( 
0( 
kb 
EN 


LL 

7 

r»  J 
i»  J 
i^, 

IM, 
NTI 
NTl 

—  •  ^ 

3 
J  )  = 
kA* 
J  )  = 
J  )  = 
1)  = 

=  M- 

5 
J  )  = 
(J) 
LL 

8 
I»  J 
IM, 
NTl 
NTI 

10 
»M- 

(  I) 
(I) 

(  IN 
(  If 
LL 
NTl 
12 
MM  , 
MMF 
TUk 
D 


TWLJFF 
1  =  1, M 
1  +  3 
)  -PEA 
+  1  )  =P 
J  )=-A 
J+l)  = 
NUt 
NUE 
♦  DR 
J  =  1,N 
2.*kS 
r^A*K( 
!*(»'( 
T*(  K( 
D(l  ) 
1=1, M 
1  +  3 
J  =  1,N 
-D(  J  ) 
-CMPL 
T»IC1 
J=1,K 
)  =  R  fc  A 
J)=AI 
NUE 
NUE 
J=1,N 

1  =  1, 
1  +  3 
«CMPL 
=  CMPL 
)  =  C  M  f- 
)  =CM^ 
TwOFF 
NUE 

J»l, 
J)  =J( 
,  J  )  =C 
N 


r{M,Q(l,J),J(i,J+l),FF,GG>CX,SX,l) 
Al 

L(FF(  I  )  ) 
6AL (G&(  I)  ) 
I  M  A  G  (  F  F  (  1  )  ) 
-AIMAG(GG{ I ) ) 


(J  ) 
J) 

J )-h^ ) 
J  )  +  hi  R  ) 

Al 


-2.  +  (1 .-ex (  I  )  ) 

X(  U(  I,  J  ),  &(  Ii^W  J)  ) 

( 6, A,C*FF,Fi*N,  162) 

L{F1  (J  )  ) 
MAG(F1 ( J)  ) 


,2 

MAI 


X(Q(  I, J),-0(  IM, J)  ) 

X(C(I,J+1),-J(1M,J+1)) 

L  X  {  Q  (  I  ,  J  )  ,  C  (  1 ,1 ,  J  )  ) 

LX( J ( I , J  +  1  )  , u (  IM, J  +  1  )  ) 

T(-M,C(l,J),a(l,J  +  l),FF,GG,CX,:,X,l) 

N 

1,  J  ) 

(2.  J  ) 


SUBROUTINE  S-LEPl 

COMMON    PHI(162,31)»FK(lo2,31),A(31),b(31)#C(31),i}(3i)»t(jl) 

1  ,RP(3I),t.PP(31),h(Ji),K:>(31),fil(31),AA(lc2),b3(lo2)»CO(lfc^) 

2  ,SI(lb2),PHIR(lt2)»xC(lfc2),VC(162),FM(io2),AkCL(lfc2)»DSU«ilo2» 

3  ,ANGOLD(162),X0LD(lt,2)»YClLO(l62)»AkLaLD(lfc2)#UELuL0(le2) 
<.     ,KP<.(  31  )  »RP'J  (31  ) 

COMMLN     /A/     PI,TP»PAD#tM,ALP,KN,PCH,XP, lC»ChU»UPHl,CL»KCL»Yk 

1  ,XA,YA,Tt,OT,DP*DLLTrt,DbL«#RA#DCN#OSN#RA<i,EPSIL#OCRIT»Cl»C<: 

2  ,CM,Ct>#Ct>*C7#bkr»8tTA,FjYM,XSt»'*S£PM,ULt(<.),M,N,MH,NN»NSr» 
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3  ,IK,JK,IZfIIYP,M00E,lJ,NFC*NCY,NKN,NG,lJlN..N2fN3>r,^>(NT^lAA 
^  ,NPTS>LL*I*LStP*M^»Nt:w*tPSl,NDLS»XLfcN,SCALUi 

5  ,SC/iLQQ*Nb^GAMMA,NUPT»CSTAk>KEh*DtP^UlNF»l:)Tf:e'*XLUT 

6  ,INC»QFACfGAyi,KDES»PLTSZ»OPL,UPU 
COMMUN  /SDLl/  C(162/3i) 

DATA  0/5022*0.0/ 

YP  =  0. 

NSP  =  0 

DC     10  J=1^NN 

PHI (MM, J ) =PHI (1, J )+DPHi 

PHI(NM+i»J)=PHI(2fJ)+UPHl 
10  CONTINUE 

TE  =  -2 

DO  30  I=LL»MM 

CALL  MURMANl 

DO  100  J=1>N 

0(  I, J  )  =  D( J ) 
100  CDNTINUE 
30  CONTINUE 

TE»2 

I  =  LL 
80  1=1-1 

CALL  MUkMANl 

DO  60  J=1*N 

Q(I, J  )=D( J) 

60  CONTINUE 

IF  (  I.GT.2  )  GO  TO  60 
DO  61  J  = 1 , N 

61  C( 1*  J )»0(MM^  J ) 

210  FDRMAT(b(2I4, Elt.B) ) 

CALL  SOLVl 
200  FaRMAT(5 ( I^» E16.b ) ) 

DO  110  I=1»M 

DC  110  J=1,N 
110  PHK  I,  J  )=PHI(  I, J  )+0(  1>  J  ) 

DU  111  J=1»N 
ill  PHI (MM^ J  ) =PHI  (1» J  )+DPHI 

IF (RCL.E J.O.)  GO  TO  90 
YA=RCL*((PHI(M,l)-(PHl(2,l)+rPHI))«DcLTH+SI(i)) 

IF(MODE.hQ.l)  GO  TG  90 

IF  (KDES.GE.O)  CO  TO  ^1 

ALP=ALP-.3*YA 

GO  TG  -^2 
-^1  B6(  1)  =  BB(  l)-.t*YA 
^2  CALL  CUSI 

GO  TO  95 
90  YA  =  TP*YA/ (l.  +  BET  ) 

DPHI«DPHI +YA 
95  DO  97  L  =  l*."^ 
97  PHK  L^NN  )  =OPH  1*PHIR(  L) 

IF{MCDE.Eu.O)  RETURN 

DO  120  J=1»N 

DO  120  L=1»M 
120  PHI(L,J)=PHI(L>J)+YA*PHIKL) 
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RETURN 
END 


SLBRQUTINE 
CCIMON     Phi 

1  *RP(31)f R 

2  ,SI  (162), 

3  ,ANG0LD(1 
^    ^eP'iOl), 

Cbh.iL.N     /A/ 

1  >XA,YA,Tt 

2  ,C<i,Qb,Cb 

3  »  IK, JK,  IZ 
^  *NPTS,LL, 
b  *SCALQG>N 
5    ,IUC,QFaC 

PHI0=PHI( 1 
PHIYP=PHI ( 
PHIYY=PHI Y 
PHIXX=PHI( 
PHlXM=PHi ( 
P  M  I  X  P  =  P  H  I  ( 
U (I .NE.MM 
U(  1)  =C1*(P 
D(l)=-D( 1) 
GO    TO    ^0 

10     b=PHIXM*DE 
bO»U/t-P(  1, 
OS»U*BQ 
J  =  l 

IF( JS.LE.Q 
0(1  )  =0. 
GO    TL    <.0 

30    CONIINUE 
CS"Ci-C2*Q 
Cw  =  ljC*ij5*( 
A  =  i<A^*  (CS* 
CNQS-CS-OS 

D(I)=CS*r<b 

L(  1  )=-0(  1  ) 
'fO    CONTINUE 
DO    60    J«2, 
PHIXX-PHI ( 
OU-PHIXP 
PHIXP=PHI ( 
PmIXY'PHIX 
PHIX^-DU 
DO«DL>Dk.L  1 
HHIY^ 'PHI Y 
PhlYP-PHi ( 
PHI YY-PMl Y 


MUR 
(162 
PP(  3 
PHIK 
62)  , 
RP3( 

Pl> 
*DT, 
,C7, 
f  ITY 
I>LS 
6»  bA 
>GAM 
,2)  - 
I>2) 
P  +  Ph 
I  +  l» 
I  +  l, 
I  +  l, 
)  GO 
HIXX 

/Ci 


MAN! 
,31), F 
1),R( 3 
(io2  ), 
XOLD(  I 
31) 

IF, RAD 
DR, DEL 
PbT,bE 
P,M(jDE 

mna, nc 

,KDES, 
2.*lk* 
-PHK  I 
IL-PHI 
1)+PHI 
1)-PH1 
2 )-PmI 
TO  10 
+RS(1) 


P(162,31),A{31),3(31),C(3i),D(31),t(31) 
i),Rj(3i),F:i(3l),AA(lt2),DB(xt2),CD(162) 
XC(lo2),YC{162),Fr^(i62),ARCL(lt2),CoJM(lo2) 
c2  ),  Y:]LC(lb2  ),  ARC  OLD  (162  )»DEL0LC(lfc2) 


,  Ei^,A 

lH,Dfc 

Ta,FS 

,  I  i  ,  M 

NE»«,  E 

FT,CS 

KLISZ 

CJ(  I  ) 

,1) 

(1,1) 

(I-i, 

(  i-1, 

(I-l, 


LP,RN,PCh,XF,TC,CHD,DPHl,CL,RCL,YR 

LR,RA,CCN,JSN,:^A4,cPSIL,QCrIT,C1,C2 

YM,XSEP,SEP.'^,TTLt{4),M,N,fi,1,NN,f*SP 

FC,f.CY,NKN,NG,IDIh,N2,N3,N^,NT,lXA 

PSl,NL/ti>,XLEN.SCALQI 

TAk,Rt^.*DEP,OlNF,TSrEP,XulT 

,QPL,uPU 


i)-?Fl(  I,l)-Pri{  I,i) 

1  ) 

2) 


♦  P  ^I  YY+R  A^*Cl)(  I  )  ) 


LTh-SI ( I ) 
1) 


CRiT)    GO    TO    30 


FP(  I-l,  I)-FP(  1*1,1 ) ) 
w3  )  *C0(  I  ) 

(i)*PhIYY*iir(l)»ow*X*L.'1-:>*HHlAX 
/CS 


I-t-l,J)*PHI(I-l,J)-Phl(l,J)-Phl(l,J) 

1*1, J*  1  ) -Phi (  I-i . J 1 1 ) 
P-PHIxf, 


I» J*l  )-PHl  (  I  ,  J  ) 

P  -  P  H  1  Y  ", 
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U  =  R 
DV» 
V  =  0 
RAV 
BQ  = 
BQU 
US  = 
UV  = 
VS  = 
0S» 
IF( 
D(  J 
GO 
CS  = 
CMV 

UVl 
C(  J 
D(  J 
IJ)  ) 
D(  J 
60  CON 
PET 
END 


50 


(  J  )*D 
R(  J)* 

V*R(  J 
=  P(  J) 
1.  /FP 

flCU*U 
(  BQU  + 
30*V* 
US  +  VS 
QS.LE 
)=0. 
TD  60 
C1-C2 
S«CS- 
S  =  CS- 
=  .5*6 
)=RS( 
)  =RA^ 
+  RAV* 
)=-D( 
TINUE 
UPN 


U-S1(  I  ) 

(PHl(l,J+l)-PHI(i,J-l))*DtLR 

)-C0(  I  ) 

*RA*V 

(  1,  J  ) 


BOU)*V 
V 


.QCRIT)  GO  TD  50 


♦  OS 

vs 
us 

QU+RAV 

J )  *  c  r,  V  s 

*( (CMVS 


J  ;  *  L  r,  V  b 

*((CMVS+US-VS)*DV-UV*DU)+RI(J)*QS*Bu*(U*(FP(l-l,J)-FP(I+l* 
(FP{I*J-i)-FP(I,J+l)))+CMUb*PHIXX-UVl*PHlXY+C(J)*PHlYY 
J  )/Cb 


c 
c 
c 
c 
c 
c 
c 
c 


10 


20 


30 


SUB 

ABS 

DO 

IF 

FUN 

ALP 

ALP 

CN 

IDI 

CUM 

DIM 

N  = 

L  = 

SET 

IF 

DO 

ALP 

GO 

SET 

J  =  N 

DC 

X  = 

ALP 

X  = 

AL  P 

J  = 


ROUTI 
(NS) 
FFT  F 
NS<0 
CTION 

AND 
(N)  I 
AND  S 
M  IS 
PLEX 
ENSIQ 

lABS 

N/2 

LP  A 
(NS.L 
IC  J 
(J)  = 
TL  '^O 

UP  F 
♦  1 

30  K 
-CMPL 
(  J)=X 

CMPL 
(K)»X 

J-1 


NE     TWOFFT(NS,F>G,ALP>fatT»CN»SN>lDiM) 

IS  THE  NUhBER  QF  POINTS  IN  EACH  ARRAY 

OR  F  AND  G  OR  REVERSE  TRANSFORM  FDR  ALP  AND  BET 

THE  REVERSE  TRANSFORM  IS  PREFORMED 

S  F  AND  G  ARE  REPRESENTED  BY  ARRAYS  OF  THEIR  VALUES 

BET  ARE  COMPLEX  FOURIER  COEFFICIENTS  FOR  (-  AND  G 

S  OF  THE  FORM  A(N)-I*B(N) 

N  ARE  Tht  COSINE  AND  SINE  ARRAY:> 

THE  SKIP  FACIOK  BETWEEN  POINTS  IN  F  AND  G 

ALP*BET,X 

N  F(IDU.^i)»G(IDIM*i),ALP(i)*BET(l),CN(i),SN(l) 

(NS  ) 

NO  DO  COMPLEX  TRANSFORM 
1 .0)  GO  TC  20 
«  1>N 
CMPLX(F (if  J )>G{1, J ) ) 

OR  REVERSE  TRANSFORM 

=  1*L 
X(AIMAG(BET(K))-R£AL(ALP{K))>AIMA&(ALP(K))+REAl(BET(K))) 

X(KEAL(/LP(K) )+AIMAG(bET(K) ), AIMAG(ALP(K))-REAL(BET(K) )) 
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♦(C^PLX(RFAL{ALP(t<.))+AlMA3(BET(K)),AIMAG(ALP(K))-REAL(BE 


K  =  L  +  1 

ALP(K)      '1 
1T(K) ) ) ) 
^0    CALL     FFQRh(Nf  ALP* BfcT^CN^SN  ) 

NOW    SEPAkATF     OUT     THE     REAL     AND     IMAGINARY    PARTS 

J     =     N 

IF     (NS.LT .0)     GC    TO    60 

£  r.  I  »  .  5 

DO    30    K     =     1,L 

X     =    CONJG( ALP ( J ) ) -ALH(<+1) 

BcT(K+l)     =-ENI*C^PLX(     AIMAG( X) , REAL (X ) ) 

ALP(K+1)     »     fcNI*(CDNJG(ALP(K+l) ) +ALP( J ) ) 
t>0    J     =     J-1 

8LT(1)     '     (  ENI  +  ENI)*AIN:AG(  ALP(l)  ) 

ALP(l)     =     (  tNI +cM  )*RfcAL(  ALP(i  )  ) 

RETUf>N 
60    DO    7C    J     «     1»N 

F(1*J)     =     PcAL( ALP(J ) )/N 
70    G(l, J)     =     -AIMAG( ALP( J ) )/N 

RETUf'N 

END 


10 


FUNCTION  VLAYbR ( EM?, A* 6  ) 

X=(hr2-A) / ( B-A) 

VLAYtP  =  0. 

IF  (X.LK.O.)  RETURN 

IF  (X.GE.l.)  GO  TO  K 

VLAYtR  =  3.«X«X-<::.<=X«X*X 

RETURN 

VLAYEO  =  1. 

RETURN 

END 


C 

c 


SUBP 
LUAD 
PkEV 
COMM 

1  »RP 

2  ,SI 

3  ,  AN 
<f    #RP 

COliM 


1 
2 
3 

6 


,  XA 

fC 

,  IK 

,.NP 

,sc 

t  IN 

Dlrtt 

E(iUI 


OUT  IN 
RATIC 
lOUS 
UN  PH 
(31)» 
(  Ib2  ) 
GOLO( 
^.(31) 
UN     /A 

,  YA.  r 

,C5,C 
*  JK,  I 
1S,LL 
ALOGt 
CQFA 
NSION 
VALfc.N 


t  NA 
L.S 
t  VA 
Kit 
f-  PP( 

,  PHI 
162) 
,  R  P  S 
/  PI 
E.OT 
t,C7 
2»IT 
,  I»L 
N6»G 

cot 

CE  ( 


SHLS 
.  FI 
LUES 
2f  31 
31), 
k(io 
,XGL 
(  31) 
,  U* 
,CR, 
,Bl  T 
YP,M 
ScP, 
AMhA 
n,\^0 

),H( 
S(  I  ) 


(K2) 

T  H(K2-l),H(K2),3tPP(K2-l),S£PR(K2) 


USING 


),FP(162,Ji)/A(31),b(31)*C(31),D(31)*t(31) 
M3i),kS(3i), 1-1(31), AA(Ifc2),3b(lt2),CC(lt£;) 
2),XC(l62),YC(ifc2).FM(io2),AKCL(lt2),CiUM(lc2) 
D(lf>2),YaLU(l62),ARwaLu(lc2),JtL0LL(lfc2) 

RAD#trt,ALP#KN»PCH,XP#IC,LhD»DPHI,CL,KCL»Yt» 
DLLTH,JELR»KA#UCN#DSN,RA«i,EPSlL,0CFIT,Cl#C2 
,  HLlA,FSYI-i,XS»P,StPr.,TTLF(<.),M,N,Mh,NN,NSP 
Obfc*IL»NFC*NCY*NRN,NG*IOIM#N2#N3»N<.,NT/lXX 

M<.,Nt*»tPSl,NDES»XL6N,SCALJi 

»NwPT»C:>TAR,RFf.,OtP,jlNFiTSTEP.xCbT 

ES,PLT:,Z,tPL,CjPU 

1 )*  S£PR(  1) 

,FP(i,U,  )),(H(l),F^'(i,',  )),(SEPR(i)»FP(l»l"')) 
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10 


20 


30 


10 


F(S) 

NLS  ■• 
XNLS 
LLS  ■■ 
XI  = 
X2  - 
X3  = 
X^  = 
DO 
DUM 
XI  = 
X2  = 
X3  = 
X^  ' 
Z211 
Z321 
Z't22 
Yl  = 
Y2  = 
Y3  = 
DO  2 
Db.^ 
DUMM 
Yl  = 
Y2  = 
Y3  » 

12  = 

13  = 
Aill 
bill 

cm 

H(K2 
H(K2 
Yl  = 
Y2  = 
Y3  = 
DO  3 
DUM 
DUMM 
Yl  = 
Y2  = 
Y3  ' 
12  = 
Z3  = 
Alll 
Bill 

cm 

SEPR 
SEPR 
PET'J 
END 


:  Aiii*s*s  ♦  Biii*s   +  cm 

b 

■■     FLOAT(NLS) 
NLS     +    1 


L=2,LLS 

S(K2-FLQAT (L*1KC ) ) 

1  +    DUM 

2  +    DUM*DUM 

3  +    DUM*CLM*DUK 

4  +    DUM*DLr^*'JUr*OUM 
X2-X1*X1/XNLS 
X3-X2+X1/XNLS 

X  4  -  X  2  *  X  2  /  X  N  L  i. 


0, 
0, 
0, 


-I 
) 

0 
0 
0 
0 


(K 

(K 

RN 


L=2*  LLS 

S(K2-FLOA7 (L*INC) ) 
M(K2-FL0AT(L*INC) ) 

1  +     DUMil 

2  +    DUMM+CUM 

3  +    DUr'M^DUM  +  OUM 
2-Yl*Xl/XNLS 
3-Y1+X2/XKLS 

(Z3*Z211-Z2*Z32i)/(Z422»Z211-Z321*Zj2i) 

( Z2-A111+Z321 )/Z2il 

(Yl-Am*X2-Bm*Xl)/XNLS 
NO     =     F(S(K2-1NC)  ) 
=    F  (S(K2)  ) 


L=2, LLS 

S{ K2-FLQAT{L*iNC ) ) 
SEPR(K2-FLGAT{L*INC)) 

1  +    DUf<M 

2  +    DUMM+DUM 

3  +    DUMM*DUM*'DUM 
2-Yl*Xl/XNLS 
3-Yl*X2/XNLS 

(Z3*Z211-Z2*Z32i)/(Z^22*Z211-Z321*Z32  1) 

(  Z2-Am*Z321)  /Z211 

(Yl-Am*X2--3m*Xl)/XNLS 
2-INC)     =    F ( S(K2-iNC) ) 
2  )     =    F(S(K2  )  ) 
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c 

c 


SUB  ROUTINE  INTPLi(MA,Xl,rI,N,X»{-,FP,FPP»FPPP) 
DIMENSION  X(l),Kl),hP(i),FPP(l),FPPP(l),Xl(l), 

Cj  C  A  I    !■  IL  I   -  I   C  C  T 


10 


11 

^9Q 


20 


F  (xi(L)  )  =  FKL)   FGk  L  =  1 
THE  FUNCTICN  AND  DEklVATlVtS 


Tj 
AT 


TuL)  &G  TO  b 


.b-^.  (  L.  tC.l  )  )  GU  T3 


DIMENSION  X(l),Kl),FP(i),FPP(l),FPPP(l),Xl(l),FI(l) 

REAL  NEW»LEFT 

D^TA  TQL  /l.E-9  / 

XKL)  «ILL  SATISFY 

F»FP,FPP,FPPP  Akt 

NX  =IA3S(MX ) 

K  »  ? 

LI  =  1 

NEW  =  X{ 1) 

FN  =  F(l  ) 

FVAL  «  FI( 1) 

IF  (ABS(F (  i)-FI  (  1  )  )  .GT 

LI  =  2 

>  1  (  1  )  =  A  (  1  ) 

IF  (NX.EU.l)  RETURN 

DU  IGO  L  =  L1»NX 

IF  (  (FVAL.NE.fi (L  )  ) 

NEW  =  X (K ) 

FN  =  F(K) 

IF  ( PP(K  )*FP(K-1  )  .GT.O.  )  GU  TU  6 

ROOT  =  SQRT(FPP(K-1)**2-Z.*FP(K-1)*FPPP(K-1) ) 

DX  »  -2.*F?(K-1) /(FPP(K-l)+SiGN(RaGT>FPP(K-l) ) ) 

NEW  =  X(K-1)+DX 

FN  =F(K-l)+OX*(FP(K-l)+DX*(.t)*FPP(K-l)+uX«FFPP(K-l)/o.)) 

FVAL  =  FI (L) 

SGN  =  f(K-l)-FVAL 

IF  (NEW.GT.X(K-1 ) )  SGN 

Du  IC  J  =  K,N 

If ( FP( J  )*F  P( J-1  )  .Lt  .0.  )  ^D 

W     (SGN*(MJ)-rVAL).LE.O.) 

GO  TD  10 

RCjiTT     =     S  JRT(F  PP(  J-i  J^^^-^.  +  FP  (  J-1)*FPPP(  J-1  )  ) 

DX     =    -2  .♦FPC  J-1)/  (FPp  (  j-1)  ♦Slbt.C  RJUT>  FPP(  J-1  )  )  ) 

RIGHT     =     X ( J-1 >+Lx 

LEFT     "    A'^AXK  X(  J-1  ),  Nfc-J  +  TQL) 

IF     (Lt FT. GT. RIGHT )     GU     TO     10 

=     .t)«  FPP  {  J-1  ) 

=     FPPP( J-1  )  It  . 

=     F(J-l)*CX»(FP(j-l)*-Dx*{f2*DX*F3)) 

( SGN«{FN-F VAL)  .LE.O)  GJ  TO  65 
CONTINUE 

IF  (MX.GT.O)  GO  TO 
MX  -  L - 1 
RETURN 

PRINT  ^9^,LfFl(L) 
FL^MAT  (  ♦  IROUBLl 
J  ■  K 
GU  TC  lOU 

ULD  ■  AMAXi ( X  ( J-1  )  .NE W  +  TUL ) 
F2  ■  .i^FPPtJ-l) 
F3  -  FPPP( J-I  ) /t  . 
STAR l-OLL 
DO  <.0  K  »  l»iO 


AbS(MX) 

Thfc  X  POINTS 


=  FN-FVAL 


TO 
GO 


7 

TD 


20 


F2 
F3 

FN 
Ic 


11 


Al   *»i5»3X,flb.O) 
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^0 


60 


65 


70 

90 

100 


X  =  0 
PQLD 
F  (  AB 
N  =  F 
EW  = 
F  (Nb 
EW  » 
F  (  AB 
LD  = 
ALL  A 
IGHT 
EFT  = 
F  (SG 
IGHT 
EFT  » 
F  (L. 
0  70 
F  (  (R 
EW  = 
X  »  N 
N 

F  (  (  F 
EFT  = 
0  TG 
IGHT 
ONTIN 
I(L) 
=  J 
X  »  N 
ETURN 
NO 


LD-X 

»  Fr> 

S(  FP 

(  J-1 

QLD- 

W.LT 

AMIN 

S(NE 

MEW 

BOkT 

'     X( 

OLD 
N*(  F 
=  LE 

XI( 
EQ.l 

K  = 
IGHT 
.5*( 
EW-X 

F(  J 
N-FV 
NEW 
70 

=  iNE 
UE 
=  NE 


(J-1) 

(J-l)+JX*(FPP(J-l)  +  .t)*DX*FPPP(J-l)) 

OLD)  .LL  .TJL)  GU  TO  60 

)+0X*(FP(J-i)+L/X*(F2  +  LX*F3)) 

( FN-FVAL ) /i PJLO 

.START)  GG  TJ  6J 

l(NEw*X( J ) ) 

W-OLD)  .  LI.  TJL  )  V.G  TO  90 


J) 


N-FVAL)  .GT  .0.  )  GO  TD  65 

FT 

L-1) 

)  L£FT  =  X(i) 

1,  50 
-LEFT).LI:.  TOl  )  GO  TO  90 
LEFT+RIGHT) 
(  J-1) 

-1)+DX*(FP(J-1)+DX*(F2+0X*F3)) 
AD  *SGN.LE .0. )  GO  TO  80 


SUBROUTINE  READQS 

SUBROUTINE  TO  RIAD  IN  THE  INPUT  PRESSURE  DISTRIBUTION 

COMMON  PHI{i62,31)>FP(lb2,31),A(31)»0{3i),C(31)»D{3i)*t{3i) 

1  *RP{31),RPP(31)>P(3i)/RS(31)*kI(31)»AA(162)*bB(i62)*CC(162) 

2  ,SI(162),PHlP(l62)»XC(162)»YC(l62),FM(i62)»AKCL(ifc2),DSuM{16<:) 

3  ,ANG0LD(162),X0LD(162),YaLL(162),ARC0LU{162),uELJLL(162) 
^  ,RP^(31  )^RP5(31) 

COMMON  /A/  PI» TP*RAC* cM, ALP»kN*PCH, XP*TC*CHD, DPhl,CL* RCL^ YK 

1  *XA,YA,TE,DT^bR,LtLTH,DtLR,kA,DCN>DSN,RA^,EPSIL^QCFIT»Ci,C2 

2  >C^»C5,C6>C7,BtT*bETA,FSYM,XShP*SEPM*TTLE{^)»f'i,N,Mr,NN,NSP 

3  ,IK,JK,IZ*ITYP,M0DE,iS*NFC*NCY,NKN,NGWDIM,N2»N3*NA,Nr»lAX 
A  *NPTS»LL*I*LSEP*M^,Nc<^/cPSl>NDES*XLEN,SCALQl 

5  ,SCALQ0,N6*GAMMA*NQPT,CSrAR*kEM,DEP,UlNF>  TSTEPf xOUT 

6  »INC»QFAC»GAM,KDES»PLTSZ»QPL^OPU 

DIMENSION  JI(l),5F(l),UX(i),SX(l),tS{i),GP(l)*GPP{l)^GPPP(l) 
1  *DJDS(l)»PHT(i),DPHDi(l)»(jPP(l)*CPPF(l),C(l) 
EQUIVALENCE  (UI(l),FP(l,i)),(SF(l),FP(l,3))WQx(i),FP(lo)) 
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5C0 


510 


2  0 


30 


gOC 


1  >(SX(l),FP(l,7))^(ri(i),FP(l,q)),(GF(i),FP(i,il)) 

2  »(GFP(l),FP{i,13)),(GPPP(l),FP(l,lb)),(0QDS(i),FP(l,17)) 

3  »(PhT(i),FP(l,19)),(j?HDS(i),FP(i,21)),(GFP(l),FP(l,23)) 
^    >(QFPP(i)»FP(l,25)),(i(i),FP(l,27)) 

X,rACh(QS  )     =    SQ«T(QS/(  . 'v  *(  GAMMA*  1 .)  *C  S  TAK  *C  S  TaR- .  i  *(  GAMMA-1  .)*  OS  )  ) 

DATA    MMi-lAX     /300/ 

MGDE  =  0 

REWIND  M6 

FEAD(N6,500)  XIN^CoTAr. 

FORMAT  (2F10.^) 

NIN  =  A3S( XIN) 

CALL  GaPLuT(NRN) 

IF  (  MN.GT.NINMaX  )  GU  TO  90 

kE AD    IN    j( S) 

UMAX     =    0. 

DO    20    J     »    IfNIN 

READ(N6,!3lO)     SF(J)»CI(J) 

FOkMaT (2E20.1 J) 

Qi^AX     =     AMAXK  OMAX,  ABS(  J  i  (  J  )  )  ) 

CONTINUE 

XFAC     «     2./ ( Sh (NlN)-SF (1 ) ) 

CCNST     =    -i.-XFAC*SF ( i ) 

FAG     =    1. 

IF(OMAX.GT  .1.0)     t-AC     =     l.o/OMAX 

WFITE  (N^,130) 

J  =  1/NlN 

=  XFAC*SF(  J  )+CCi>IjT 

=  FAC*Jl(J) 

XMACH(QX(J  )*wX( J)  ) 

(N't^l^G)  J^SF(J)fUl(J)*SX(J),UX(J),a(J) 

0X(  J  ) 
CONTINUE 

WRITE  (N^»&OC)  CSTAR 

FORMAT  (iXW»  ;>X,2AHINPUT  CRITICAL  SPlEC  IS  ,FiO.A) 
CST4F  =  FAC+CSTAR 


60 


DC  3C 
Sx(j  ) 

CX(  J  ) 
0(  J  ) 
rtt-  ITt 
CI(  J) 


SIZE 

sex 

SCY 

XOR 


«  .  1^ 

=  ;>. 

=  2.t) 
=  6.0 


IF  (xIN.LT.O.)  XOR  •  5 .7p 
CALL  PL  JT(  XOR, -J.  L,-3  ) 


SCY*OX(  L  )  ,  .'j»i  IZt  »  3,C  .  .-1  ) 


70 


DO  60  L  =  1»;>1IM 

CALL  SYMBOLC jCX* jX  (L  )> 

CALL  PLOT  (-t).0,-'..0,  3) 

CALL  PLaT(-t).0»^.0»2  ) 

CALL  SYMB0L(-<..b*3.i>»SIZfc»lHU#u.*l) 

CALL  SYMcOL  ( -t> .  0»  iC  Y*C  S  T  AR  »  2  .  ♦  b  I  Z  L  »  1 1)»  J  .  »  -  1  ) 

CALL  SYM3UL  ( -5 . 0 » -SC Y» C ST aR , 2 . ♦ S  I  Z t t  1^ » J .  .  -  1  ) 

DO  7C  L-l>9 

Yh  -  FLOAT  (  L-1  )  -<•  .0 

S  »  .'♦♦FLUATC  L-1  )-i.t 

CALL  SYM8UL{-;j.G»YM»  SIZb#l^»0..-l) 

LNCJUt ( iO. 100» A)  S 

CALL  SYMuGL(-:;.7»  YH,SlZE,A,t.  »•») 
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^) 


SPLhb  UliiTRIbUT10iM»0.,2^) 


CALL  PL0T(-b.0,0.,3) 

CALL  PLQT(t).0»0.,  2) 

CALL  SYMBOL  (  ^  .  5* -.  i-,  :>  I  Z  t ,  i  HS  >  0  .  »  1  ) 

DC  6  0  L=l^ll 

XH  =  FLOAT(L-i)-!J.C 

S  =  .2*FLGAT{  L-D-l.O 

CALL  SYMdCL  {Xh,0,,Sllc,i5f9L,,-l) 

bNCDlE  (10>100,A)  S 
eC  CALL  SYMBOL  (XH-2.  ♦SlZE»-.3»  SIZE*  A>l; 
100  FORMAT(F^.l) 

CALL  SYMBCL(-1.5t-^.D*SIZE»2^HINPUT 

SX(NIN)  =  1. 

DS  «  (  SX(  NIN) -SXd  )  )/FLQAT(NCPT-l) 

FIND  Q{S)  AT  EVENLY  SPACED  PuINTS 

ES(1)  =  SX(1  ) 

DC    ^(     J     =     2»NQPT 
<^0    ESC  J  )     =    ES(  J-D+OS 

ES(NCPT)     =     SX(MN) 

CALL  SPLIF(NIN  , SX, QX^ GP , GPP  * &P PP* 3» C  .  » 3 » C . ) 

CALL  lN7PL(NJpr,ES,Q,SX,QX>GP>0PP,GPPP) 

CALL  PL:)T(  SCX*ES  (1  )»  SCY*u(l),3) 

DO  93  L=2*NQPT 
95  CALL  PLOT( SCX*bS (L), jCY*Q( L),2) 

CALL  PLOT  (-XDR*-i.  t-,-3) 

CALL  FRAME 

IF  (CSTAR. LT.O. )  Gj  TJ  210 

CALL  SPLIF(NQPT,ES^&>GP^bPP,GPPP^3»0.,3,0.) 

CALL  INTPLI(l*SC,0.*NCiPT,ES,C^&P*GPP,GFPP) 

INTEGRATE  0(S)  TO  GET  PHI(S) 

CALL  SPLIF(NQPT>ES*Q*l)QDS*QPP*PHT^-3>0..3,0.) 

CALL     INTPL{lfSJ>PHMN»ES»PHT*G,L'GDS»JPP) 

GAM     =     PHT (NQPT)-PHT(l) 

SCALOI     »     PHT( NQPT )-PhMN 

DO     50     I     =     1,NQPT 

QI(I)     =     PhT(I)-PHMN 

VaL     =     AMAXl (0.,CI (I ) )/SCALQI 
50    PHT(l)     «    SIGN(SOkT(VAL)*ES ( I)-SL) 

REWIND    N6 

WRITE     (N6)     (PHT(J)>ES(J)*ai(J)*a{J)»J  =  lfN(.PT) 

CALL     INCOMP 
RETURN 
90     WRITE     (N^^llO)     NINMAX 
210  CALL    PLOT (C.*0.*^99) 

CALL     EXIT 
RETURN 
lie     FORMAT     (  15H0****M0RE     THAN    »I^>30H     INPuT     CAKOS 

1     32HC***PRQGRAM    STJPPEu     IN    RfcADCS***     ) 
130     F0RMAT(lHC/llX,^HCARC,i»XWHS-lNPUT>8X,7HJ-iNPUT*i0X,bHS-UScLI 

1    ,9X,6HU-USED,     llX,6hM-USED    /) 
1^0     FORMAT     ( 3X, I9,2F15.5^ 3X,2Fi5.6^ 3X, F15 .fc) 
END 


NOT    PERMITTED****     / 
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IC 


SUBRO 
CQMMC 

1  »RP( 

2  *SI( 

3  ,  ANG 
^    ,RP^ 

1  ,  X  A  , 

2  ,C^> 

3  ,  IK, 
^  ,  N  P  1 
t;  >SCA 
6    *  INC 

QFAC 
DD    iC 
TaU    = 
OF  AC 
TAU     = 
bB(l  ) 
DPHI 
CALL 
ANG     = 
DCi    20 
PHK  I 
ANG    = 
PHKM 
PHKf' 
INC     = 
CALL 
RETUfi 
END 


UTIN 
N  PH 
31), 
152) 
GLD( 
(  31) 
K  /  A 
Y  A.  T 
C5»C 
JK.  I 
S*LL 
LQO, 
,OFA 
«    SC 

1  =  1 

ASI 

=     (5 

ASI 

=  ^. 
CQSI 

0. 

I-l 
*1) 

ANb 
M,l  ) 
M  +  1, 

1 
CYCL 
N 


E     INCGMP 

l(162,31),FP(i62,31)>A(31),b(3i),c(31)»D(31)*t(3l) 

FPP(31),k(31).k5{31),i-I(31),AA(lfc2),L.ti(it2),CG(l62) 

>PHlR(162),XC(lfc2),YC(162),FM(lo2)>ARCL(162)>USuM(lt£) 

162),XCLD(lt2),YuLD(lt2)*A'<C0LL;(162),DEL0LD(lo2) 

f KPb( Jl ) 

/     PI,TP,RAD,t>1,ALP»f'N*PCH,XP,7C»CHb*DPHI,CL,RCLfYR 

L,0T,Df<,DbL7H,DELK,RA,LCN,DSN,PAA,tPSIL,QCRIT,Cl,C2 

6*C7*BET>L\tlA,FSYM,XSLP,StPM»TrLt(^),M,N,r.f.,Nf;,NjP 

ZWTYP,MDD£»IS»NFC,NCY*NKN»NG*ID1M>N2*N3*N^,NT,1AX 

*I*Lb[P*M^,NEW,EPSl,NDES,XL£N,SCALai 

N6,GA^MA,N0PT,Ci>TAR,FtM,L}EP*QlNF,lSrEP*XLUT 

C,GAM,KDE5*PLTSZ»(JPL^QPU 

ALUI-.^*GAM 

^10 

NC-GAi-^/  (  P  l  +  QFAC  )  ) 

CALQI+GAi''*TAU/Pl-.b*GAM)/CaS(TAJ) 

N{-GAM/( Pi*QFAC ) ) 

TAU- ALP 

♦  GAM  /UP  AC 


=     (.5'*(-FAC-l.)*Ca(I)+GArt*ANG/IP 

+  DT 

=    PI 
1) 


'HI (1, 1 )+oAM 
PHI (2*1)+GAM 


bUBP 
COMM 
CLMM 

1  ,KP 

2  ,SI 

3  »  AN 
^  ,  PP 

CUMM 
1  ,XA 
fC 
,  IK 
,NP 
#SC 
»  IN 

DIME 

1  »FP 

2  #CC 
FCUI 

1  »ID 


2 
3 

5 
6 


UUTINE  CYCLE 

CN/fL/FLUXT^,Cr'»,C'JW,lNLCC 

GN  PHl(162f31)»FP(lb2.31),A(3i)>t?(31)>«.(31),L.(31)*E(:>l) 

(31),kPP(31)*R(31),RS(31)*PI(31)»AA(lt^),BB(ifc2)»CL(itj2) 

(162)*PHIP(i62)»XC(ib2),YC(162)*FM(i62)»APCL(lfc2)#LSuM(lt2) 

G0L0(lb2)»XULL(lfr2),YJLD(lM2)»APCaL0(lb2)*L^ELLL0(I62) 

'.  (31  ),  RP5  (31  ) 

UN  /A/  PI*TP,FA[y»£,"i»ALP»FN,PCH,XP,K»LHD»uPHi,CL*KCL»Yt* 

,  YA,Tfc»DT»UR#OtLTH»DtLR»PA*DCN/OSN,RA<.,EPSlL#tjCRIT#Cl#C<; 

*Ct»#C6,C7,bET,bElA,FSYM,XSEP,SEPM»lTLfc(<.)»M*N»MM,NN,NSP 

»JK.U»ITYP.MGDl,IS»NFC»NCY,NRN»NG,10IM,N2,Ni»N<i,NT,lXX 

TS,LL»I»Li£P*K<,,NE<<»tPSl,NDES»xLEN,SCALOI 

ALQaf^6*GAh^'A»NQP^#CSTAR*RtM»DEP#UI^F#TiTEP#XUU^ 

C»JFAC»OAM,KCEi#PLlSZ#UPL»UPU 

NSIUN  PHlS(l),CIRC(l)tOPMDw(l)»D2PI-D^(i).PHlT(l),0(i) 

P(I)»FPPP(l)»FPPPP(l)»UX(i),PHlV(l),jS(l),CX(i),SX(l)»:>S(i) 

P(l),Al(l),A2(l)»A3(l)»A<.(l),tii(l) 

VALENCE  {   Di  (1  )*FP(i*  1)  )#  (CIRl(1)#FP(1,  3)  ),  (lPHu*,(  U,rP(l#5)  ) 

2PH[)w(i),FP(l»7))»(PHlT(l),FP(l,^)),(C(l),FP(i»ll)) 


159 


2  ,<FPP(l),FP(l,13))»(FPPP(i),t-P(l,l'j))>(FHPPP(l),FP(l»17)) 

3  ,(QX(1),FP(  1*19)  ),(PHlV(i)/FP{l*iJi))#  (Phis  (l),FP(lf2o)) 
^    ,(CX(l),FP{l,25))»(SX(i)»FP(l,27))»(SS(l)*FP(l»24)) 

5  ,(CCP(l)»PHlP(l)),(Al(l)»kP(l)),(/k2(l),RP(7)) 

6  ,(A3(l),kP(13)),(A4(i)/KP{19)),(bl(l)iKP(2i.)) 
XriACH(aS)     «    SORT  (OS/ (  .:j*(GAMMA  +  1.  )*CSTAR*CST  Ak-.  5«(GAMhA-l 
CP(3)     >=    C5*(  (C^/ (l.  +  C2*0*Q))**C7-l.  ) 

DATA  KD/0/ 
LC  =  NFC 
NMP  •:  2*LC 
MC  =  NMP  +1 
PILC  =  P1/FL0AT(LC) 
NCUMl  =  NhP/M 
NLUM2  »  NLUMl-1 
IF  {  INC. EG. 1)  GO  TO  bO'iO 
INDCD  =  1 

CALL    GTURB(O.»O.,.^»CUw>0.>.125f.l) 
INDCD    =    0 
6080    DO    10    I»1>MM 

CIRC(I)     =     FLCAT(  I-l)*i;T 
10     PHIS(  I  )     =     PHK  I,  1)+CG(  1  ) 
Bbl    =    b8  (1  ) 

CALL    SPLIF{MM,C1RC>  PHlS,D?HDtv,       FPPP,     F  PPPP*  1,  0  .  »  1 ,  0.  ) 
IF     (HM.EO.MC)    GO    TO    5 
DO    6     1=1, MM 
0(1)     =     PH1S(  1) 

6  SS(I)     =    CIRC(  I) 
UQ    7    I»1,MC 

7  CIRC  (I)     =    FLOAT( I-1)*P1LC 

CALL     INTPL{MC,CIRC,PHIS>SS>u,LPHDW,FPPP»FPPPP) 

CALL    SPLIF(MC»CIRC»PhIS,DPHOW,        FPPP,     F P PP P » 1> 0  .  , 1 > 0  .  ) 
5    DO    9    I«^l,120 

SSd-^O)     =    CIRC(  I) 
9    Q(I-^O)     =     DPHDW(I) 

CALL    SPLIF(80,SS»Q,FPP,FPPP,FPPPP*3,0.,3,0.) 

CALL     lNTPLI(l,wNP*0.*dO,Sj,Q,fPP,FPPP,FPPPP) 

CALL    SPLlF(MC»ClRCfPhlS,DPHDU*C2PHD«>FPPP*l,J.,l»0.) 

CALL     INTPL(l*wNP»PHMN,CIf<C*PHIS,DPHDvJ,D2PHDW,FPPP) 

SCALtG    =     PHIS(MC)-PHMN 

REWIND    No 

READ     (N6)      (  PHIK  i),SS(I)>PHlV(  I),0(  I),I«l,NiJPT) 

CALL     SPLlF(NaPT,PHIT,U,FPP,FPPP,FPPPP*3,0.,3>0.) 

VAL     =     SQRT(  (  PHISd  )-PHMN)/SCALGO) 

DO    20     1=1, MC 

VAL     =     AMAX1(0.,PHIS(  1  )-PH,^N) /SCALOO 

FAC     =     1. 

IF     (CIRC(I).LE.WNP)     FAC     =     -1. 
20     PHISd)     =     FAC*SQKT(\/AL) 

CALL     INTPL(MC,PhIS»QX,PHlT,C,FPP,FPPP,FPPPP) 

II-     (INC.EQ.l)     GO    TO    edS7 
:  DETERMINE     EM 

XNUM    =    0. 

DEN     =     0. 

DO    -^^^^    J     =    ?.,M 


)*0S)) 
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K  » 
II-  ( 
VAL 
VAL 
FPPP 
IF  ( 

^<.^^  CuNT 
QiMF 
COMA 
DUAV 
UO  4 
K  = 
IF  ( 
DQAV 
1  (  (0 
DOHA 

^^^b  CUNT 
DuAV 
C2  = 
C7  » 
EMX 
EM  = 
tfl  = 
fcM  » 
EM  = 
CI  = 
C6  » 
C^  - 
Ct>  = 
OCPI 
UETE 
CALL 
CALL 
C(MC 
XNUM 
PEN 
DO  <r 
K  » 
IF  ( 
XNUi 
^7  UEN 
FAC 
DPHl 

88f7  DO  b 
K  ■ 
IF  ( 

eaafe  ccp( 

CALL 
CALL 


J 

MC.NE 
=  (PH 
«  (  VA 
(J)  = 
(OX  (K 

=  XN 
=  OtN 
INUE 

=  Su 
X  =  0 
t  =  0 

't^b  J 
J 

MC.NE 

E   « 

X(K)* 

X  »  A 

INUE 

E  =  S 

.5*  ( 

GAMM 

=  EM 

(  GAM 

2./t 

SORT 

(1.- 

C2  +  1 

C2*E 

1  .+C 

!./( 

T  =  ( 

RMINE 

SPLI 

INTP 

)  =  P 

=  0. 

-  0. 

7  J-1 
J 

MC.Nb 
=  XN 

-  DtN 

-  XNU 
«  FA 

d3fc  J 

J 

MC.NE 

J)  = 
SPLI 
INTP 


.MM) 
I  (  J  + 
L*VA 

VAL 
)*0X 
UM  + 

+  V 


K=NDdMl+J-NDUM2 
l»l)-Phi(J-i,l) )*bELTH-jI( J ) 
L)/FP{ J,l) 


(K) ) .&T.(CSTAk*CST AP) ) 

UX (K ) ♦wXtK ) ♦VAL 
AL*VAL 


GO  TJ  ^^^^ 


PT(XNUM/DEN) 


2^M 


.MM)  K  =  NDUiM*J-;M0UM2 

DQAVE   +  (  (OX(K)»OX(K  )  )-JINF*ClNF*FPPP ( J ) ) ♦ 

QX(K)  )-t^INF*QINF*FPPP(  J  )  ) 

MAXl  (DCMAX,AtiS(S^RT(FPFP(  J  ))-(AdS(uX(K))/OINF))) 

QRT( DUAVt/FLJATCM-l) ) 

GAMMA-1.  ) 

A/ ( GAMMA-1 . ) 

MA+l.)*CSTAft*CSTAP/{OlNF*UlNF)-GAMMA+l. 
M 

(  EM) 
PEM) 
./(£ 
M*EM 
fa 

C6*C 
Cl+C 
SCA 
F(ND 
L  (MC 
HIV( 


*EM+REM*tMX 
M*FM) 


7) 


1) /(GAMMA+1 . ) 

LING  FUR  PHI  faY  LtAbT  SOUAKES  FIT 

Pr,PHIT,PHIV,FPP,hPPP,FPPPP»3jO.»3,0 

»PHIS*U  »PHIT»PHIV*FPP*FPPP»FPPPP) 

NGPT  ) 


»  MM 

•  MM) 
UM+P 

♦  0( 
M/DE 
C*GA 
»1.M 

.MM) 
OX(K 
F  (NQ 
L(MC 


K  =  NCUM*J-,>I0UM2 
HI  ( J, 1)*C J (o )-PhMN 
K) 
N 
M 
M 

K»NDUM1»J-NJLM2 
) 

PT»PH1T»SS»FPP,FPPP,FPPPP»3,.0.»3..0.) 
,  PhiS»SX,PHiT,SS*FPP,IPPP#fPPPP) 


CALL     SPLIF(MC*CIKC»:)X,jS#FPPP,FPPPP,i,C,*l#0.) 
DO    <iO     I»2,NMP 
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VAL  » 
DS(I) 

40  CGNTIN 

VAL  = 
0S(1) 
DS{f1C  ) 
4  3  CUNT  IN 
DG  240 
ANGL  » 
CX(I  ) 
240  bX(  I  ) 
DU  1C4 
FPPP(  I 
FPPPP( 
AA(  I  ) 
1040  fcb(I) 
CALL  F 
DFAVE 

DU  lo;? 

AA(  I  ) 
IF  (  FP 
AA(  I  ) 
BB(  I) 
lObO  DFAVE 
1  (Bd(  I 
DFAVb 
BB(i) 
IF  (IN 
QINF  = 
tM  =  ( 
S 


EM 

C2  =  . 
C7  =  G 
CI  =  C 
C6  =  C 
C4  »  1 
Qb  =  I 
UCRIT 
CDNTIN 
IF  (  IN 
IF  (K.0 
IF  (  (M 
Wf-ITE 
FLRMAT 

1  *4HCB 

2  ,tJX,3 
fcOGO  ANG'J  = 

ALPl  = 

io.F  ITL  ( 

1  *C0W, 

f020  FDRM/T 

1  »2X,F 

6030  INC  = 


45 


t040 
6010 


A8S 
=  A 
UE 
**♦ 

A3S 
-  A 

JE 
1  = 
FL 

=  C 

=  s 

0  I 

)  = 

I ) 

=  C 

OUC 
=»  0 
0  I 

PP( 

=  T 

=  T 

)-F 
=  S 

«  S 
C.fc 

OF 
GA,^ 
QRT 
5*( 
AMM 
2  +  1 
2*E 
.  +C 
.  /( 
=  ( 
UE 
C.E 
ES  . 
ODt 
(N2 

(  1 
Bl> 
HCD 

-k 

AL 
N2» 
TC 

(  1 
8.b 
0 


(0S{I)/(2.*SIrUCIRC(I)*. 
LDG( VAL) 

(FPPP(l) ) 
LJG( VAL  ) 

DS(l) 

1,MC 

UAT( I-l)*PiLC 

aS( ANGL) 

IN( ANGL) 

=  1,LC 

AA(  I) 
=  BB (  I) 
X{2*I-1) 
iX(2*I-l ) 
F(NMP,LS*FPP, AA,8b) 


)  )  ) 


=  1>L 

AA(  I 

1)  .E 

STEP 

STEP 

DFAV 

PPPP 

QRT( 

fal 

Q.O) 

AC/( 

MA  +  1 

(2./ 

GAMM 

A/{G 

.  /(  E 

F*EM 

t 

C6*C 

Cl+C 


C 
) 

0.99999.  )  GO  TO  1050 

*AA(  I  )  +  ( l.-rSTEP) *FPPP( 1) 

♦BB(I)  +  ( l.-TSTEP )*FPPPP{ 1 ) 

E  +(AA(i)-FPPP(i))*(AA(l)-Fr>PH(I))  +  {;ib(I)-FPPPP(I))* 

(  I)  ) 

DFAVE/160.  ) 

GD  TO  45 
4.*EXP( AA(1)  )  ) 

.)*CSTAP*CSrAk/(CINF*OINF  )-GAhMA+l. 
EM) 
A-1.  ) 
AMMA-i. ) 
M  +  EM  ) 


7) 

1) /( GAMMA +1 


) 


t.l )  GD  TO  6030 
E^.l)  G'J  TO  d040 

KD*KDbS  )  .NE  .1  )  .  AND. (KD.GE.  2))  GO  TO  6C0C 
^6010) 

HlWjdX.  5HCuAVt>6X>l:HDCMAX,oX.5riDFAVE,6A>4HDPHl,7X 
5X,3HNSP*4X,2HEMWX,2HCLWX,ihALP»6X,4HANGC 
W»oX,2hTC» / ) 
AD*Bd(l ) 
P*PAD 
6020)     KD»DuJAVt»[:QMAX»LFAVL,Yk»rA,NbP>LM,CL.ALPl»A,NGC 

X»I3,5(2x>fQ.j),2\,I3,2X,Fo.4,3(cX,F7.4) 
,2X, F5.3) 
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f-OO 


eo5 


blC 


NOES)     KC=1 


TC»  uJ AVfc 
1  ) 


t  i-H 


KD    «    KD+1 

IF     (KL.oT 

CALL    .1AP 

CL    =    2.*L<PriI*CHD 

(REWIND    M  't 

wf<  ITECfl't^tlOO)     ,^^ 

ECR.MATdUX,  13) 

SNX     =    1. 

».RITE     (^-t^dOS) 

FURMAT        (l-7.3f2tlO 

DC    5  b!?  5     I     =    1,MM 

VaL     =     XMACH(CCP{I)*CCP(I)) 

CCP(  1  )     =     CP( VAL) 

rtRITt  {M^,olO )     XC (  I  ),  CCP  (  I  ) 

CUNTINUE 

FOR  1AT( ?F 10.^) 

CALL     COSI 

EPSl    =    EPSl-DEP 

RETURN 

END 


>  Yf',  SNX 


2 
3 

6 


100 
120 


I'lO 


SUSP 
CUMM 

1  ^RP 

2  >SI 

3  *  AN 
^    ,RP 

C  uMM 
1     >XA 
»C't 

,1k 

,NP 
*SC 
,IN 
\j\M 
ECUI 

1  ,(  F 

2  .  (P 
F-EWI 

xr    ■ 

IF  ( 
00- 
WPIT 
FGPI 
DO  1 
L    » 

wS        ' 

,  (  L) 
PHIS 
CIRC 
CUNT 


CUTI 
ON  H 
(31) 
(162 
GOLD 
^(  31 
CN  / 
»YA, 
,C5> 
.  JK, 
IS,L 
ALUG 
COF 
NSIQ 
VALE 
PPP  ( 
hIS( 
NO    N 

xjur 
soRr 

f  (N3 
AT(2 
AG    L 

(PHI 
(J* 
-      S 

(L-1 
(L-i 
INUE 


NE  OU 
ril(i6 
,»'PP( 

),PHI 
(ib2) 

A/  PI 
Tt.DT 
C6,C7 
II,  IT 
L*  I,L 
»  No»  Ci 
AC  »GA 
N  U(  1 
NCE 
1  )  »F^> 
1  )  »F? 
3 


TPT 

2»31 

31), 

■<(  16 

,>0L 

(31) 

,  TP, 

,Lf, 

,  HI  T 

YP,.'^ 

btP, 

A,•^^  A 

)  »C1 
(  .(1 
(  1.7 
(  1,  I 


•  G  T  •  0  •  )     G 
(OCPIT) 
.120)    xr. 
Fl  J.<.  ) 
■2,f 

(  L  ♦  1 .  1 )  -  ^' 
J)  /Fr'(  L.  1 
uPT  (  JS) 
)     "     P  H 1  (  L 
)     -     F  L  ..  A  T 


),FF(io2.31),A(31),b(3i),C(3i),D(3l),E{jl) 
hi(3i).KS(3l).hI(3^),AA(io2).b3{162),CG(li;<:) 
2),AC(162),YC(lb2),FM(lo2),AKv,L(i62),LSUM(l6^) 
D(lt2),Y3LD(l62),ARC0LD(l(2),DcLCLD(lt2) 

FAD,t.-1,ALP,FN,PCH,XP,TC,CHi;,LPHl,CL,KCL*tK 

DF  LTri,  OELk,  kA,  uCN.  OSN.  ti  A^t.  tPSlL.i-CH'lT,Ci»C2 

,  nETA,FSrh,XSEP,StPM,ITLE(^),r,roMr,NN,NiP 

OUL  »  1  j*NFC*  NCY,NRiONG,  IJlN^NZjNS^N't/NTWAA 

M^#Ncw,tPSl,NDEi.,XLEN,SCALUl 

,  NQPT.CSTAF,FEi'^,DtP,QlNF.TSTEP.AL.uT 

ES,FLrSZ,wPL,LPU 

KC(l).FPP(i),FPPP(l).FPPPP(l),FPPP>'P(l),PHlj(l) 

),FP(l,i3)),(CISC(l).r-P(1.3)).(FPP(l),FP(i,:-)) 

)),(rPPr'i3(l),FP(l,^)),(FPPPPP(l),FP(i.li)) 

b)  ) 


L    TO    IJJ 
00 


HI(L-1,1  )  )»LEL  lM-bl( L) 
) 

,  1  )  ♦ww(L  ) 

(L-1 ) 'H  r 
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0(1)  =  .  'j*(Q(  Zl+Oth)  ) 

U(M.i)  =  0(1) 

MZ  =  f^-l 

CALL  SPLU(MZ,CIkC»PHlS,FPP>FPPP,FPPf'P,3»0.,3fO.) 

CALL  SPLIF(MZ,CIRC,hPP»FPPP>hPPPP,FPPPPP,3,0.*3,0.) 

CALL  lNTPLI(i/WNP>0.*MZ*CIRC»FPP,FPPP>FPPFP,FPPPPP) 

0(1)  =  -Q(i) 

DO  200  I=2»M 

Q(I)  =  SIGN(Q (I),CIkC(I-i)-WKP) 

200  continue: 

0(MM)  =  Q(MM) 

ARCl  =  0. 

WkITE(N3,160)  AFClfQ(l) 

PRINT  160,  AlvCl»0(l) 

DG  150  L=2,M^ 

DX  '    XC(L)-XC  (L-1  ) 

CY  =  YC (L)-YC (L-1) 

ARCl    =    AkCl    +    SC1RT(DX*DX  +  DY*DY) 

WRITE (N3, 160  )     ARC1,Q(L) 

PRINT  160,  ARC1,0(L) 
160  FGR."1AT(2E20.10) 
150  CONTINUE 

XDUT  =  0. 

RETURN 

END 


BLOCK 
COMMON 

1  ,RP  (3 

2  ,SI  (1 

3  ,AN&0 

4  ,RP4( 
COMMON 

1  ,  XA,  Y 
,C4,C 
,  IK,  J 
,NPTS 
,SCAL 
,INC, 
♦♦♦♦ID 
DATA  P 


2 
3 

5 
6 


P 
SEPM/ 
NFC/8 
>  JK 
,NQPT 
,OEP/ 
GPU/  , 
END 


DATA 
PHI 
1  ),R 
62), 
LD(1 
31), 
/A/ 
A,  TE 
5,C6 
K,  IZ 
,LL, 
QO,N 
UFAC 
IM  M 
1/3. 
CH/. 
.004 
0/  , 
/O/ 
/321 
0.  /, 
95/ 


(162,31),t-P(i62,31),A(31),B{31),C(31),D(31),E(31) 

PP{31),R(31).RS(31),RI{31),AA(l62),B3(lc2),CG(lb2) 

PHlR{162),XC(162),YC(162),FM(lb2),AkCL(162),DSUM(lc2) 

62),XDLD(162),YL)LD(162),ARCGLD(lt2),DELDLD(lt2) 

RP5(31) 

PI,TP,RAD,tM,ALP,RN,PCH,XP,TC,CHu,L»PHi,CL,KCL»YR 
,DT,DR,DELTH,DELR,kA,  LCN,0SN,RA4,tPSIL»QCRIT,Cl,Cil 
,C7,SET,BETA,FSrM,XStP,SEPM,TTLfc(4),M,;M,MM,NN,NSP 
,  ITYP,r,C0[,Ij,NFC,NCY,NRN,NG,IDIM,N2,N3,N4,NT,IXX 
I,LSEPiM4,NEvJ,£PSl,NDES,XLEN,  SCALQi 
6,GAM^',  A,NQPT,CSTAR,Rt^,OE?,uINF,Ti.TtP,XCtT 
,GAM,KLES,PLTSZ,QPL,OPU 

UST    BE     SET    TJ    THE    FIRST    DUENSILN    OF    Phi**** 
i415926535c'^7-^/     ,    EM/. 75/     ,       ALP/0./    ,       CL/ICD./     , 
07/    ,     FSYM/1.0/     ,     RCL/1.0/     ,     btTtt/O.O/,     RN/20.E6/     , 
/     ,     XSEP/.93/     ,     XP/0.0/     ,     M/160/     ,     N/30/     ,     NRN/l/     , 

NPTS/81/     ,     LL/0/     ,     NG/1/     ,     Ii/2/     ,     IDIM/162/     ,     MUDE     /I/ 
,     N2/2/     ,     N3/3/     ,     N4/4/     ,     LSEP/16i/     ,     Ii:/125/     ,     IIYP/l/ 
/, REM/0. /,EPil/0./,CSTAP/100./ 
NDES/-l/»TbTtP/.2/,KDES/i0/,FLTSZ/50./,!JPL/.b5/, 
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